Dim cnn As ADODB.Connection
    Dim rec As ADODB.Recordset
    Dim x  As Long
    Dim a As String
 
    lst_suche.Clear
 
    Const mdbFile As String = "C:\Autos.mdb"
 
    Set cnn = New ADODB.Connection
    Set rec = New ADODB.Recordset
 
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
             "Data Source=" & mdbFile & ";"
 
     sql = "SELECT * FROM Autos WHERE Hersteller = '" & Me.txt_suche.Text & "';"
    rec.Open sql, cnn, adOpenDynamic, adLockOptimistic
 
    While Not rec.EOF
        For x = 0 To rec.Fields.Count - 1
            Debug.Print rec.Fields(x).Name, _
                        rec.Fields(x).Value
 
                    a = rec.Fields(x).Name & ":  " & rec.Fields(x).Value
                    lst_suche.AddItem a
        Next x
 
        lst_suche.AddItem ("-------------------------------")
        lst_suche.AddItem ("")
 
        rec.MoveNext
    Wend
 
Err = MsgBox("Kein Fahrzeug gefunden!", vbInformation, "Hinweis")
If lst_suche.ListCount = 0 Then Err
 
 
    Set rec = Nothing
    Set cnn = Nothing