Поиск по базе данных Access

Data1.RecordSource = "SELECT * FROM Телефоны WHERE [Фамилия] _ LIKE 'Ива*'"

Dim db As DAO.Database 'Объявляем базу данных
Dim rs As DAO.Recordset 'Объявляем рекордсет
Dim sSQL As String 'Переменная, где будет размещён SQL запрос
 
Set db = DAO.OpenDatabase("D:\db1.mdb")
sSQL = "SELECT * FROM orders;"
Set rs = db.OpenRecordset(sSQL)
 
With rs
    .MoveFirst 'Перемещаемся к первой записи
    Do While Not .EOF 'Выполнять пока есть записи
     a = .Fields(0)  'Достаем значение текущей записи для поля номер 0
     b = .Fields(1)  'Достаем значение текущей записи для поля номер 1
     c = .Fields(2)  'Достаем значение текущей записи для поля номер 2
     d = .Fields(3)  'Достаем значение текущей записи для поля номер 3
    
       .MoveNext 'Перемещаемся к следующей записи
    Loop
 End With

Dim S_S 'строка условий отбора
Dim D, L 'значения диаметра и длины
 
'считывание данных с комбобоксов
Диаметры.SetFocus: D = Диаметры.Text
Длинны.SetFocus: L = Длинны.Text
'назначение текущей базы
Set dbs = CurrentDb
 
'если установлен флаг диаметры
If Флажок0.Value = -1 And D <> "" Then
'пишем в строку запроса условие
S_S = " WHERE Метизы.Diameter ='" & D & "'"
End If
'если установлен флаг длина
If Флажок2.Value = -1 And L <> "" Then
'в зависимости от содержания строки запроса пишем или дописываем условия
    S_S = IIf(S_S = "", " WHERE Метизы.Length ='" & L & "'", S_S & " And  Метизы.Length ='" & L & "'")
End If
 
'назначаем списку рекордсет запроса к таблице Метизы с условиием(условиями) отбора
Set Me.Результат_фильтра.Recordset = dbs.OpenRecordset("SELECT Метизы.Name,Метизы.Stall from Метизы " & S_S)

"SELECT Метизы.Name,Метизы.Stall from Метизы " WHERE Метизы.Diameter ='" & D & "'" And  Метизы.Length ='" & L & "'")