Private Sub grd_Kommentar_FillComboBox(ByVal nRow As Long, ByVal nCol As Long, _
  oComboBox As Object)
 
Dim strSQL As String
 
    With grd_Kommentar
        Select Case .Columns(nCol).Key
            Case "Status"
                With oComboBox
                    strSQL = "SELECT PendenzStatusKrz " & _
                             "FROM tbl_C0_PendenzStatus " & _
                             "WHERE tbl_C0_PendenzStatus.Modul00_Kommentare =" & _
                             "True " & _
                             "ORDER BY Aktiv, Sort, PendenzStatus"
                    Set .Recordset = CurrentDb.OpenRecordset(strSQL, _
                      dbOpenSnapshot, dbFailOnError)
 
                    .BoundColumn = 1
                    .DisplayColumn = 1
                End With
 
            Case "WV an"
                With oComboBox
                    Set .Recordset = CurrentDb.OpenRecordset(m_strFilterMA, _
                      dbOpenSnapshot, dbFailOnError)
 
                    .BoundColumn = 1
                    .DisplayColumn = 1
                    .ListRowsMax = 20
                End With
 
            Case "Erfasser"
                With oComboBox
                    Set .Recordset = CurrentDb.OpenRecordset(m_strFilterMA, _
                      dbOpenSnapshot, dbFailOnError)
                    .BoundColumn = 1
                    .DisplayColumn = 1
                    .ListRowsMax = 20
                End With
 
            Case "Priorität"
                With oComboBox
                    .AddItem "normal"
                    .AddItem "hoch"
                    .AddItem "tief"
                End With
        End Select
    End With