Private Sub FindDS(Byval SQL As String)
    'Datenbank öffnen 
     Dim Db As Database 
     Dim Tabelle As Recordset 
     Dim dbFile As String 
     dbFile = App.Path + "Daten.MDB" 
     Set Db = Workspaces(0).OpenDatabase(dbFile, False, False) 
     Set Tabelle = Db.OpenRecordset(SQL, dbOpenDynaset) 
      'Prüfen, ob Suche erfolgreich 
      If Not Tabelle.EOF Then 
            List1.Clear
            Do While Not Tabelle.EOF 
                  N = "": V = "": G = "" 
                  With Tabelle 
                     If Not IsNull(!Name) Then N = !Name 
                     If Not IsNull(!Vorname) Then V = !Vorname 
                     If Not IsNull(!GebDatum) Then G = !GebDatum 
                     .MoveNext 
                   End With 
                   List1.AddItem N & " " & V & ", " & G 
             Loop 
       Else 
       'kein Datensatz vorhanden 
              MsgBox "Kein entsprechender Datensatz gespeichert." 
       End If 
End Sub