Private Sub dgAuftragsLeistung_FillComboBox(ByVal nRow As Long, ByVal nCol As _
  Long, oComboBox As Object)
    On Error Resume Next
 
    With dgAuftragsLeistung
        If .Columns(4).Key = "Bearbeiter" Then
            With oComboBox
                Set .Recordset = oRSUser
                .Width = 3000
                .ListRowsMax = 5
                .BoundColumn = 1
                .DisplayColumn = 2
                .ColVisible(1) = False
            End With
        End If
    End With
End Sub

 
sSQLUser = "Select lngMitarbeiterCnt, strName & ', ' & strVorname as" & _
  "Mitarbeiter from tblMitarbeiter where " + _
               "lngAbteilungCnt = " + CStr(nZ(Me.lngAbteilungCnt, "0")) + " And" & _
               "ysnGueltig = 1"
    oRSUser.CursorLocation = adUseClient
    oRSUser.Open sSQLUser, CurrentProject.Connection, adOpenStatic, _
      adLockOptimistic