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