Private Sub Form_Load()
Dim sSQL As String
 
Set oDB = DBEngine.OpenDatabase("c:\programme\microsoft visual studio\meine" & _
  "projekte\db3.mdb")
 
sSQL = "SELECT MA_ID, MA_Name, MA_Vorname FROM tblMitarbeiter"
Set rsUser = oDB.OpenRecordset(sSQL)
 
  If Not rsUser.EOF Then rsUser.MoveFirst
  Do While Not rsUser.EOF
  txtUserName.AddItem rsUser!MA_Name & vbTab & rsUser!MA_Vorname
  txtUserName.ItemData(txtUserName.NewIndex) = rsUser!MA_ID
  rsUser.MoveNext
  Loop
    With txtUserName
    .Style = rsComboBox
    .AutoComplete = True
    .ListIndex = -1
    .Refresh
  End With
 
End Sub