<code>Dim Db As Database
Dim Rs As Recordset
 
Set Db = DBEngine.OpenDatabase("Daten.mdb", False, False)
Set Rs = Db.OpenRecordset("Ortsdaten")
 
Combo1.Clear
If Rs.RecordCount > 0 Then
  While Not Rs.Eof
    Combo1.AddItem Rs.Fields("Strassen")
    Rs.MoveNext
  Wend
End If</code>