Dim Db As Database
Dim Rs As Recordset
 
Dim Suchstring As String
Suchstring = Suchfeld.Text
 
Set Db = DBEngine.OpenDatabase(App.Path + "\db.mdb")
Set Rs = Db.OpenRecordset("SELECT * From tab_haupt WHERE titel like" & _
  "'*Suchstring*' ORDER BY tab_haupt.titel;")
 
 
 
List1.Clear
If Rs.RecordCount > 0 Then
  Do Until Rs.EOF
    List1.AddItem Rs(0)             'Läd die Einträge in das Listfeld
    List1.ItemData(List1.NewIndex) = Rs("ID")
 
    Rs.MoveNext
  Loop
End If
 
 
Rs.Close
Db.Close 'schließt Datenbank