Public Sub DatenFeldLaden()
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
 
Set Db = OpenDatabase(App.Path & "\jbvfor.mdb")
Set Rs = Db.OpenRecordset("SELECT Kunde FROM tbl_Neuprojekte GROUP BY Kunde" & _
  "ORDER BY Kunde")
 
If Rs.RecordCount <> 0 Then
   cmbKundenAus.Clear
   Rs.MoveFirst
   Do While Not Rs.EOF
      cmbKundenAus.AddItem Rs.Fields("Kunde").Value
      Rs.MoveNext
   Loop
End If
 
End Sub