Dim rstLogin As New ADODB.Recordset
 
    With txtUser
        .AutoComplete = True
        rstLogin.Open "SELECT Lfd_Nr, Name FROM tblBearbeiter", AdoAccess, _
          adOpenStatic, adLockOptimistic
        Set .Recordset = rstLogin
        .Columns(1).Visible = False
        .BoundColumn = 2
        .DisplayColumn = 2
        rstLogin.Close
        Set rstLogin = Nothing