Dim ADO_CON1 As New ADODB.Connection
    Dim ADO_BEHOERDEN As New ADODB.Recordset
    ADO_CON1.Provider = " Microsoft.ACE.OLEDB.12.0"
    ADO_CON1.Open ("Adressen.mdb")
 
    With ADO_BEHOERDEN
        .ActiveConnection = ADO_CON1
        .Source = "Behoerdenadressen"
        .Open
        ' PRÜFUNG FEHLER NOCH NACHENTWICKELN !!!
 
            ADR_NAME = !Name
            ADR_ORT = !ort
            ADR_STRASSE = !Strasse ' nicht jede wegen eigener PLZ gefüllt
            ADR_PLZ = !PLZ
            ADR_BEZ = !Behoerdenbez
 
 
 
      End With
 
 
    Do Until ADO_BEHOERDEN.EOF
 
            ADR_BEZ = ADO_BEHOERDEN.Fields("Behoerdenbez") _
 
            Listbox1.AddItem ADR_BEZ
 
            ADO_BEHOERDEN.MoveNext
    Loop
 
 
 
' schließen der DB-Connection hier deaktiviert
End Sub
 
********************************************************
 
Private Sub ADRESSE_LADEN_Click()
 
'muss ich hier die ADO Connect neu aufbauen ??
 
        With Listbox1
 
            If .ListIndex >= 0 Then
            MsgBox Listbox1.List(Listbox1.ListIndex)
            TextBox1.Text = Listbox1.List(Listbox1.ListIndex) 'die Orte sind da 
            ' und Auswahl funktioniert schon mal.
 
            'TextBox2.Text =  ' hier soll die passende PLZ zu Ort hin, wie geht _
              es hier weiter ??
            ' usw für Textbox 3 und 4               
            End If
 
         End With
 
End Sub

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

rec.Open strSQL, Frm_Haupt.con, adOpenKeyset, adLockReadOnly

Private Sub ADRESS_DB_Click()
    Dim ADO_CON1 As New ADODB.Connection
    Dim ADOREC_DB As New ADODB.Recordset
 
    ADO_CON1.Provider = " Microsoft.ACE.OLEDB.12.0"  'win7 /64bit
'hierzu je nach Windows Version folgende Verweise aktivieren
' MS ActiveX Libary 2.8
' MS ADO Ext. 2.8 for DLL
 
 
     ADO_CON1.Open ("DATENBANK\Anschriften.mdb")
 
    With REC_DB
        .ActiveConnection = ADO_CON1
        .Source = "Adressen"
        .Open
        ' Fehler - PRÜFUNG NOCH NACHENTWICKELN !!!
 
            ADR_NAME = !Name
            ADR_ORT = !Ort
            ADR_STRASSE = !Strasse ' nicht jede wegen eigener PLZ gefüllt
            ADR_PLZ = !PLZ
            ADR_BEZ = !Behoerdenbez
 
    End With
 
    Do Until ADOREC_DB .EOF
 
            ADR_BEZ = ADOREC_DB .Fields("Behoerdenbez") _
            Listbox1.AddItem ADR_BEZ
            ADOREC_DB .MoveNext
 
    Loop
 
'Aufräumen - Verbindungen trennen
ADOREC_DB .Close
Set ADOREC_DB  = Nothing
End Sub
 
'##############################################################
Private Sub ADRESSE_LADEN_Click()
'Datenbank Connection
Dim con As ADODB.Connection
Dim rec As ADODB.Recordset
 
'#########################
'Eintrag LISTBOX  auswerten
 
With Listbox1
        If .ListIndex > -1 Then
 
            markierterEintrag = .List(.ListIndex)
        Else
        MsgBox "es wurde nichts ausgewählt  !!!"
 
        End If
 
End With
 
'############################################
'Weiterverarbeitung - SQL Zugriff Datenbank
 
Set con = New ADODB.Connection
    With con
        .CursorLocation = adUseClient
        .Provider = " Microsoft.ACE.OLEDB.12.0"   ' win7 / 64 Bit !!
        .Properties("Data Source") = "datenbank\Anschriften.mdb"
        .Open
    End With
 
strsql = "Select * From Behoerdenadressen Where Behoerdenbez =  " & "'" & _
  markierterEintrag & "'"
Set rec = New ADODB.Recordset
rec.Open strsql, con, adOpenKeyset, adLockReadOnly
 
    While Not rec.EOF
           VAR_NAME = rec.Fields("Name")
           VAR_STR = rec.Fields("STRASSE")
           VAR_PLZ = rec.Fields("PLZ")
           VAR_ORT = rec.Fields("ORT")
 
           TextBox3 = VAR_NAME
           TextBox4 = VAR_STR
           TextBox6 = VAR_PLZ & " " & VAR_ORT
 
        rec.MoveNext
 
     Wend
 
'Aufräumen - Verbindungen trennen
rec.Close
Set rec = Nothing
End Sub