Private Sub ocxGrid_FillComboBox(ByVal nRow As Long, ByVal nCol As Long, _
  oComboBox As Object)
 
    Dim sQryItem As String
    Dim rsItem As New ADODB.Recordset
 
    With moGrid
        If .Columns(nCol).Key = "Artikelgruppe" Then
            With oComboBox
                sQryItem = "SELECT Bezeichnung, Artikelgruppe FROM" & _
                  "KHKArtikelgruppen WHERE Mandant =" & gnManId() & " ORDER BY" & _
                  "Bezeichnung"
                Set rsItem = goMandant.oData.rsOpenRecordset(sQryItem, _
                adOpenDynamic, adLockOptimistic)
                .ColumnAdd , , 1200, ALIGNMENT_LEFT
                .ColumnAdd , , , ALIGNMENT_LEFT
                Do Until rsItem.EOF
                    .AddItem rsItem!Artikelgruppe & vbTab & rsItem!Bezeichnung
                    .BoundColumn = 2
                    .DisplayColumn = 2
                    .Width = 5000
                    '.COLWIDTH(1) = 0
                    '.COLWIDTH(2) = 2500
                    rsItem.MoveNext
                Loop
            End With
        End If
    End With
 
End Sub