Private Sub sevGridListe_FillComboBox(ByVal nRow As Long, ByVal nCol As Long, _
oComboBox As sevDataGrid2.EditComboBox)
    If rsArtikelgruppen.State = 0 Then
        rsArtikelgruppen.Open "SELECT IDWert, Bezeichnung FROM" & _
          "tblprmArtikelgruppen", cnnconnect, _
        adOpenDynamic, adLockOptimistic
    End If
    With sevGridListe
        If .Columns(nCol).Key = "Artikelgruppe" Then
            With oComboBox
                Set .Recordset = rsArtikelgruppen
                .BoundColumn = 1
                .DisplayColumn = 2
            End With
        End If
    End With
End Sub