Dim con As ADODB.Connection
Dim rec As ADODB.Recordset
 
Set con = New ADODB.Connection
    With con
        .CursorLocation = adUseClient
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .Properties("Data Source") = "Pfad zu deiner MDB"
        .Open
    End With
 
Sql = "Select * From Adressen Where Ort = 'Aachen' "
' Oder halt direkt den ausgewählten Wert des User aus der Listbox nehmen
 
Set rec = New ADODB.Recordset
 
rec.Open Sql, Frm_Haupt.con, adOpenKeyset, adLockReadOnly        
        While Not rec.EOF
           Plz = rec.Fields("Postleitzahl")
           ' Oder auch direkt zuweisen in die Listbox
           ' Alle gewünschten Felder auslesen
        rec.MoveNext
        Wend
rec.Close
Set rec = Nothing