Private Sub Form_Load()
Dim sSQL As String
Set oDB = DBEngine.OpenDatabase("c:\programme\microsoft visual studio\meine" & _
  "projekte\db3.mdb")
 
 
    With Data1
    ' Datenbank öffnen
    .DatabaseName = "c:\programme\microsoft visual studio\meine" & _
      "projekte\db3.mdb"
    .RecordSource = "SELECT * FROM tblMitarbeiter"
    .Refresh
    End With
 
    With txtUserName
    .Style = rsComboBox
    '.AutoComplete = True
 
    ' Datenfeld für autom. Aktualisierung zuweisen
    ' DataSource = Data1 !
    .DataField = "MA_ID"
 
    ' Recordset-Objekt für Kundengruppen erstellen und zuweisen
    sSQL = "SELECT MA_ID, MA_Name, MA_Vorname FROM tblMitarbeiter"
    Set .Recordset = Data1.Database.OpenRecordset(sSQL)
 
    ' Spalte "ID" an die Datenquelle binden
    ' Diese Spalte wird in der Kunden-Tabelle gespeichert
    .BoundColumn = 1
 
    ' Spalte "Bezeichnung" an TextBox binden
    ' Diese Spalte wird in der TextBox angezeigt!
    .DisplayColumn = 2
     .Columns(2).Width = 1400
    ' Spalte ID ausblenden
    .Columns(1).Visible = False
    .ListIndex = -1
    .Refresh
    .Text = Empty
   End With
 
End Sub