Option Explicit
 
Private daoDB36 As Database
Private rs As DAO.Recordset
 
Private Sub Form_Load()
 
Combo1.AddItem "Telefon"
 
End Sub
Private Sub Command1_Click()'Start der Abfrage
On Error Resume Next
 
Dim Abfrage As String
Dim Sel As String
Dim Cbo As String
Dim Tex As String
Dim sPath As String
 
    Sel = "SELECT * FROM dates WHERE "
    Cbo = Combo1.Text
    Tex = Text1.Text
 
'Wichtig ist der Operator "LIKE"
'weil mit " = " nur übereinstimmende Einträge
'gefunden werden.
       Abfrage = Sel & _
       Cbo & " LIKE " & "'" & Tex & "*'"
       ''%" & suchbegriff & "%'
 
  sPath = App.path & "\address.mdb"
  Set daoDB36 = DBEngine(0).OpenDatabase(sPath)
'Abfrage ist der gesamte SQL-String! _
'sonst werden alle Datensätze gefunden !
 
  Set rs = daoDB36.OpenRecordset(Abfrage)
'Ich vermute mal, dass an dieser Stelle eine Progressbar
'eingegliedert werden muss. Nur das Problem ist,
'dass die Suche nicht berechnet werden kann. Je größer
'die Datenbank (Bsp 1000 Datensätze), desto unterschiedlich länger dauert
'die Suche. Demzufolge wäre ja doch diese
'(Prograssbar1.Value = Progressbar1.Value + 1) - Geschichte
'ja unangebracht, oder?
  Data1.DatabaseName = sPath
  Set Data1.Recordset = rs
  Data1.Recordset.MoveLast