Dim sSQL3 As String
  ' Datenbank öffnen
  Set oDBArtikel = DBEngine.OpenDatabase(artikeldb)
 
 
  ' SQL-Abfragestring
  sSQL3 = "SELECT Artikel FROM Kunden"
 
Set oRsArtikel = oDBArtikel.OpenRecordset(sSQL3)
 
 
If oRsArtikel.RecordCount > 0 Then
  Do Until oRsArtikel.EOF
    Combo1.AddItem oRsArtikel.Fields(0).Value
    oRsArtikel.MoveNext
  Loop
End If
 
oRsArtikel.Close
Set oRsArtikel = Nothing