Private Sub bs_gsuche_Click()
 
    Dim dbFile As String
    Dim SQL As String
    Dim rs As Recordset
    Dim i As Integer
 
    dbFile = "D:\datenbank\listenversion\oaktion.mdb"
    Set mdb_oaktion = Workspaces(0).OpenDatabase(dbFile, False, False)
    SQL = "SELECT * FROM datenbank WHERE ucase(gruppe)= '" & UCase( _
      tf_gsuche.Text) & "'"
    Set rs = mdb_oaktion.OpenRecordset(SQL, dbOpenDynaset)
    If rs.EOF Then
        ' Das Ende vom Record set ist erreicht. Es ist leer.
         MsgBox "Deine Abfrage hat keine Daten gefunden!"
         tf_gsuche.Text = ""
         tf_gsuche.SetFocus
    Else
        lf_ausgabe.Clear
        Do
            For i = 0 To rs.Fields.Count - 1 ' über den Index i werden die 
            ' einzelnen Felder im Datensatz angesprochen
                  lf_ausgabe.AddItem rs.Fields(i).Value
                  Next i
            rs.MoveNext ' macht den nächsten Datensatz zum aktuellen Datensatz
        Loop While Not rs.EOF
    End If
End Sub