Private Sub OpenFile_Click()
On Error GoTo err1
CommonDialog1.CancelError = True
CommonDialog1.InitDir = App.Path
CommonDialog1.Filter = "Access|*.mdb"
CommonDialog1.ShowOpen
Data1.DatabaseName = CommonDialog1.FileName
Set db = OpenDatabase(CommonDialog1.FileName)
For Each tb In db.TableDefs
If Left(tb.Name,  4 ) <> "MSys" And Left(tb.Name,  4 ) <> "USys" Then
Combo1.AddItem tb.Name
End If
Next
db.Close

'Запросы
Set db = OpenDatabase(CommonDialog1.FileName)
For Each tb1 In db.QueryDefs
Combo2.AddItem tb1.Name
Next
Exit Sub

Private Sub OpenFile_Click()
On Error GoTo err1
CommonDialog1.CancelError = True
CommonDialog1.InitDir = App.Path
CommonDialog1.Filter = "Access|*.mdb"
CommonDialog1.ShowOpen
Data1.DatabaseName = CommonDialog1.FileName
Set db = OpenDatabase(CommonDialog1.FileName)
For Each tb In db.TableDefs
If Left(tb.Name,  4 ) <> "MSys" And Left(tb.Name,  4 ) <> "USys" Then
Combo1.AddItem tb.Name
End If
Next

'Запросы
For Each tb1 In db.QueryDefs
Combo2.AddItem tb1.Name
Next
Exit Sub

If Data1.Recordset.Fields.Count =  0  Then
MsgBox "Нет записей"
Exit Sub
End If

Private Sub Command2_Click()
Dim t As String
db.Close
Data1.DatabaseName = CommonDialog1.FileName
Set db = OpenDatabase(CommonDialog1.FileName)
t = ""
If Text1.Text <> "" Then t = t + " and [marka_auto] ='" + Text1.Text + "'"
If Text2.Text <> "" Then t = t + " and [strana] ='" + Text2.Text + "'"
If Text3.Text <> "" Then t = t + " and [LLeHa] =" + Text3.Text
If Text4.Text <> "" Then t = t + " and [KoJIu4ecTBo_DBepeu] =" + Text4.Text
If Text5.Text <> "" Then t = t + " and [O6beM_6aKa] =" + Text5.Text
If Text6.Text <> "" Then t = t + " and [Max_CKopocTb] =" + Text6.Text
If Text7.Text <> "" Then t = t + " and [MowHoCTb] =" + Text7.Text
Data1.RecordSource = "select * from [Автомобили] where 1=1" + t
MsgBox Data1.RecordSource
Data1.Refresh
End Sub