Dim DB As Recordset
Dim MDB As Database
Dim mSuchen As String 
Dim mOrt As String
Dim mStrasse As String
Dim mKunde As String
Dim mPhone As String
 
Private Sub Combo_dblClick()
przSuchen
End Sub
 
Private Sub przSuchen()
mSuchen = combo1
DB.FindFirst "Kunde = '" & mSuchen & "'"
mKunde = DB!Kunde
mStrasse = DB!Strasse
mOrt = DB!Ort
mPhone = DB!Phone
mZeile  = mKunde + "  "+ mStrasse + "   " + mOrt + " " + mPhone
List1.Additem mZeile
DB.MoveNext
End Sub