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