Private Sub Form_Load()
Dim DB As Database
Dim Rs As Recordset
Set DB = DBEngine.OpenDatabase("Grunddaten97.mdb")
Set Rs = DB.OpenRecordset("tab_Straßen")
Cmb2.Clear
If Rs.RecordCount > 0 Then
  While Not Rs.EOF
    Cmb2.AddItem Rs.Fields("Straße").Value
    Rs.MoveNext
  Wend
End If
 
Rs.Close
DB.Close
End Sub

Private Sub Straße_AfterUpdate()
Me!Ort = Me!Straße.Column(1)
Me!Ortsteil = Me!Straße.Column(2)
End Sub