Отсутствует значение для одного или нескольких параметров Visual Basic

Public Connector As ADODB.Connection
Public ProjectPath As String
Private Sub AcadDocument_Activate()
Set Connector = New ADODB.Connection
  With Connector
 .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisDrawing.Path & "/Database.accdb"
  .Open
  End With
  MainMenu.show
End Sub
 
Private Sub AcadDocument_SelectionChanged()
Dim Entity As AcadEntity
If ThisDrawing.PickfirstSelectionSet.Count > 0 Then
    Set Entity = ThisDrawing.PickfirstSelectionSet.Item(0)
    If Entity.ObjectName = "AcDbBlockReference" Then
        SecureObject.TextBoxStreet = Entity.Name
        Set Connector = New ADODB.Connection
        With Connector
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisDrawing.Path & "/Database.accdb"
        .Open
        End With
 
Dim FoH As ADODB.Recordset
Set FoH = New ADODB.Recordset
Dim g As String
' g = CStr(SecureObject.TextBoxStreet.Text)
With FoH
.ActiveConnection = ThisDrawing.Connector
.Source = "SELECT Street.StreetName,SecureObject.StreetNum, Street.StreetNum, SecureObject.Kadastr,  "
.Source = .Source & " SecureObject.Key, SecureObject.Floors, SecureObject.Floor, SecureObject.Balcony, SecureObject.Plan, SecureObject.TypeDom, SecureObject.HomeNumber "
.Source = .Source & " FROM Street, SecureObject "
.Source = .Source & "WHERE Street.StreetName = '" & g & "' "
.Source = .Source & "AND SecureObject.StreetNum = Street.StreetNum "
 
.Open
End With
 
 
SecureObject.Key.Text = FoH!Key
SecureObject.TextBoxStreet.Text = FoH!StreetName
SecureObject.Dom.Text = FoH!HomeNumber
SecureObject.KadastrNum.Text = FoH!Kadastr
SecureObject.TypeDom.Text = FoH!TypeHouse
SecureObject.Quality.Text = FoH!Floors
SecureObject.NumbFloor.Text = FoH!Floor
SecureObject.Balcony.Text = FoH!Balcony
SecureObject.Image1.Picture = LoadPicture(ThisDrawing.Path & "\img" & FoH!Plan)
FoH.Close
SecureObject.show
SendKeys "{ESC}"
End If
End If
End Sub