По поводу поиска в Access

Private Sub CommandSeek_Click()
' Кнопка Поиск
Dim CountBuilding As Integer
' Количество зданий, попавших в запрос
If IsNull(ComboBoxSeekStreet.Value) Then
   ' Улица не имеет значения для пользователя
   SelectSeekStreet = 0
Else
   ' Номер улицы для поиска
   SelectSeekStreet = ComboBoxSeekStreet.Value
End If
If IsNull(txtSeekHouse.Value) Then
   ' Номер дома не имеет значения для пользователя
   SelectSeekHouse = 0
Else
   ' Номер дома для поиска
   ' Номер дома преобразован из
   ' строки символов в число
   SelectSeekHouse = Val(txtSeekHouse.Value)
End If
If IsNull(ComboBoxSeekDistrict.Value) Then
   ' Район не имеет значения для пользователя
   SelectSeekDistrict = 0
Else
   ' Номер района для поиска
   SelectSeekDistrict = ComboBoxSeekDistrict.Value
End If
' Порядок сортировки
SelectSort = OptionSort.Value
 
' Формирование строки запроса
' Основная часть строки
SQLText = "SELECT Order.OrderID, " & _
   "Order.FamilyName AS ФАМИЛИЯ,Order.Phone AS ТЕЛЕФОН, Order.FirstName AS ИМЯ,Order.SecondName AS Отчество, " & _
   "FROM Order " & _
   "Where Order.OrderID > 0 "
' Дополнительная часть строки
' содержит параметры выбора
If SelectSeekStreet <> 0 Or SelectSeekHouse <> 0 Or _
   SelectSeekDistrict <> 0 Then
   If SelectSeekStreet <> 0 Then
      ' Если выбрана улица
      SQLText = SQLText & " AND Order.OrderID =" & _
                SelectSeekStreet
   End If
   If SelectSeekHouse <> 0 Then
      ' Если введен номер дома
      SQLText = SQLText & " AND Order.OrderID =" & _
                SelectSeekHouse
   End If
   If SelectSeekDistrict <> 0 Then
      ' Если выбран район
      SQLText = SQLText & " AND Order.OrderID =" & _
                SelectSeekDistrict
   End If
End If
' Продолжение основной части строки - сортировка
Select Case SelectSort
Case 1  ' По адресу здания
  SQLText = SQLText & " ORDER BY Order.OrderID"
Case 2  ' По району города
  SQLText = SQLText & " ORDER BY Order.FamilyName"
Case 3  ' По площади земельного участка
  SQLText = SQLText & " ORDER BY Order.Phone"
Case 4  ' По году постройки
  SQLText = SQLText & " ORDER BY Order.Phone"
End Select
' Устанавливаем свойства для поля со списком зданий
' Тип источника данных (Таблица или Запрос)
' Для .ACCDB
' ListBox.RowSourceType = "Table/Query"
' Для .ADP
' ListBox.RowSourceType = "Table/View/StoredProc"
 
' Источник данных поля
ListBox.RowSource = SQLText
' Подсчет количества зданий, попавших в запрос
CountBuilding = CountQuery(SQLText)
If CountBuilding = 0 Then
   ' В запросе нет записей
   MsgBox "Зданий, отвечающих условиям вашего " & _
       "запроса, в базе нет. Повторите запрос, " & _
       "изменив требования.", _
       vbOKOnly + vbExclamation, "Внимание"
   ' Возврат на первую вкладку
   ' для повторения запроса
   Exit Sub
End If
' Изменение надписи внизу второй вкладки
 CountRecords.Caption = _
    "Количество зданий, попавших в запрос: " & _
     Str(CountBuilding)
' Выделение первой записи объекта "Поле со списком"
ListBox.Selected(1) = True
' Вторая вкладка видима
Page2.Visible = True
' Переход на вторую вкладку
Page2.SetFocus
End Sub

Set rsCount = New ADODB.Recordset    ' Создание набора
With rsCount
     ' Задание свойств объекта rsCount (Recordset)
     ' Источник: SQL-конструкция
     .Source = SQLText
     Debug.Print SQLText
     '''ЕСЛИ БЫ ДОБАВИЛИ СТРОКУ ОТЛАДКИ, ТО УВИДЕЛИ БЫ
     '''''ЛИШНЮЮ ЗАПЯТУЮ ПЕРЕД СЛОВОМ FROM
     ''SELECT Order.OrderID, Order.FamilyName AS ФАМИЛИЯ,
     ''Order.Phone AS ТЕЛЕФОН, FROM Order Where Order.OrderID > 0
     ''AND Order.FamilyName =1 ORDER BY NAME, SIGN, HOUSE

SQLText = "SELECT OrderID, " & _
          "Phone AS ТЕЛЕФОН, FirstName AS ИМЯ, SecondName AS Отчество " & _
          "FROM Order " & _
          "WHERE OrderID > 0 "