Beim Öffnen des Formular geben Sie den folgenden Code ein:

Private Sub Form_Open(Cancel As Integer)  'Beim Öffnen

If Nz(lstAuswahl.ListCount) > 0 Then            'Wenn Liste vorhanden ist
Me!lstAuswahl = Me!lstAuswahl.ItemData(0)  'Name des Listenfeldes: lstAuswahl 0 zeigt erster Tabelleneintrag der Liste
Call lstAuswahl_AfterUpdate                    ' Rufe das Makro auf. Es wird dann der richtige Datensatz angezeigt
End If

End Sub

'Makro NachAktualisierung beim Listenfeld:

Private Sub lstAuswahl_AfterUpdate()   'Name des Makros
If Not IsNull(lstAuswahl) Then _           ' Nur wenn etwa ausgewählt ist
Me.Recordset.FindFirst "AdressNr=" & Me!lstAuswahl  'Suche den entsprechenden Datensatz

End Sub