Option Explicit
Public Conn As ADODB.Connection
Public rs As New ADODB.Recordset
 
Private Sub Form_Load()
Set Conn = New ADODB.Connection
With Conn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = App.Path & "\Datenbank.mdb"
    .CursorLocation = adUseClient
    .Open
  End With
 
  rs.Open "SELECT * FROM DB", Conn, adOpenKeyset, adLockOptimistic
  rs.MoveFirst
  Do While Not rs.EOF
    Combo1.AddItem rs!Anrede
    rs.MoveNext
  Loop
end sub