' описание переменных cn (соединение с базой данных)
' и rs (набор записей базы данных)
Private cn As ADODB.Connection
Private rs As ADODB.Recordset
Private Sub Form_Load()
' cmd содержит адрес базы данных
Dim cmd As String
' sql - SQL-запрос 
Dim sql As String
' установить соединение с базой данных
' и открыть набор записей
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset


провести поиск в соответствии с некоторым критерием 
Private Sub Command2_Click()
Dim cmd As String: Dim sql As String
Dim cn As ADODB.Connection: Dim rs As ADODB.Recordset
cmd = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & _
"C:\Program Files\Microsoft Visual Studio\" & "VB98\Inf.mdb"
Set cn = New ADODB.Connection

With cn
.ConnectionString = cmd
.Open
End With

' переменные Po и Kr служат для хранения критериев поиска:
Po = InputBox("Введите названия полей, в которых будет_
проводиться поиск")
Kr = InputBox("Введите критерий, в соответствии с которым 
будет проводиться поиск")
' ввести SQL запрос, в соответствии с которым выводятся 
' только те строки, которые соответствуют критерию
sql = "Select * From Clients Where " & Po & Kr
Set rs = New ADODB.Recordset

With rs
' открыть только те строки таблицы, которые
' соответствуют критерию
.Open sql, cn, adOpenKeyset, adLockOptimistic
End With

' внести изменения в MSFlexGrid1:
MSFlexGrid1.Cols = rs.Fields.Count
MSFlexGrid1.Rows =  1 
For i =  0  To rs.Fields.Count -  1 
MSFlexGrid1.TextMatrix( 0 , i) = rs.Fields(i).Name
Next i

Do Until rs.EOF
MSFlexGrid1.Rows = MSFlexGrid1.Rows +  1 
For i =  0  To rs.Fields.Count -  1 
If Not rs.Fields(i) = "" Then
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows -  1 , i)_
= rs.Fields(i)
End If
Next i
rs.MoveNext
Loop

rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
End Sub

sql = "Select * From Clients Where " & Po & Kr

sql = "Select * From Clients Where '"+Kr+"' IN ("+Po+")"

Po = InputBox("Введите названия полей, в которых будет проводиться поиск")