Private Sub Command10_Click()
 
    Dim Db As Database
    Dim dbFile As String
 
    dbFile = "c:\db.mdb"
    Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
 
    Dim SQL As String
    Dim dRS As Recordset
 
    SQL = "Select * from mieter where nachname = ' " & Combo1 & "'"
    Set dRS = Db.OpenRecordset(SQL, dbOpenForwardOnly)
 
    If dRS.RecordCount > 0 Then
    While Not dRS.EOF
    List1.AddItem dRS.Fields("vorname")
    dRS.MoveNext
    Wend
    End If
    End Sub