Datei = App.Path & "\Deine DB.mdb"
 
    Set db = New ADODB.Connection
    strdb = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Datei
 
    db.Open strdb
 
    Set rst = New ADODB.Recordset
    rst.CursorType = adOpenStatic
    rst.LockType = adLockOptimistic
    rst.Source = ("Select * From Einer Tabelle Where Was willst Du suchen=" & _
      "Dein Text")
    rst.Open , db
    ......
    rst.close
   db.close