Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim SQL As String
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
If txtStreet.Text <> "" Then
SQL = "Select Field1, ID from table Where (Field1 LIKE '*" & Trim(txtStreet.Text) & "*')"
Else
SQL = "Select Field1, ID from table"
End If
cn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\my.mdb;Persist Security Info=False")
rs.Open SQL, cn, adOpenStatic, adLockOptimistic
If rs.RecordCount <=  0  Then Exit Sub

SQL = "Select НАИМЕНОВАН, ID from STREETS Where (НАИМЕНОВАН LIKE '%" & Trim(txtStreet.Text) & "%')"