Option Explicit
Dim Db As Database
 
Private Sub Form_Load()
  ' Verbindung zur Datenbank herstellen
  Set Db = DBEngine.OpenDatabase("Datenbank.mdb")
 
  ' Recordset erstellen
  Set Rs = Db.OpenRecordset("SELECT Gebiet FROM Tabelle ORDER BY Gebiet")
 
  ' ComboBox füllen
  If Rs.RecordCount > 0 Then
    With Combo1
      Do Until Rs.EOF
        .AddItem Rs(0)
        Rs.MoveNext
      Loop
    End With
  End If
 
  ' Recordset schließen
  Rs.Close
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de