Option Explicit
 
Dim mdb As Database
Dim dynn As Recordset
 
Private Sub Form_Load()
 
    Set mdb = OpenDatabase(sKeyNames17.Text)
   'In der Textbox (sKeyNames17) steht nun der Pfad, welcher 
   'zur Datenbank führt.
    Set dynn = mdb.OpenRecordset("dates", dbOpenTable)
   'Die Tabelle (dates) soll geöffnet werden
 
End Sub
 
Private Sub Command1_Click()
     Call Prz_Sreach 'Prozedur wird nun aufgerufen
End Sub
 
Sub Prz_Search()'die aufzurufende Prozedur
On Error Resume Next
Dim Tex As String 'Eine von mir ausgedachte Variable
 
Tex = Text1.Text 'Meine ausgedachte Variable wird nunr definiert
 
Dim mName
        mName = Tex 
        dynn.Index = "telefon" 
        dynn.Seek "=", mName
        If dynn.NoMatch Then
        MsgBox "Nichts gefunden"
    Else
     Kontakt.Show'Der Datensatz eines Kontaktes wird in DER Form ausgegeben
    End If
End Sub

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)
  Data1.DatabaseName = sPath
  Set Data1.Recordset = rs
  Data1.Recordset.MoveLast