Private Sub Grid4_FillComboBox(ByVal nRow As Long, ByVal nCol As Long, _
  oComboBox As Object)
    Dim strSQL As String, lngLangId As Long
    Dim strType As String
    lngLangId = Me.cmbLanguage
  With Grid4
    ' ComboBox mit Daten füllen
    Select Case nCol
        Case 3
          With oComboBox
            ' Spalte selektieren
            strSQL = "SELECT tblArtikelKategorieAwl.productsdef_type " & _
                "FROM tblArtikelKategorieAwl " & _
                "WHERE (((tblArtikelKategorieAwl.language_id) = " & lngLangId & _
                ")) " & _
                "ORDER BY tblArtikelKategorieAwl.productsdeftype_index;"
 
            Set .Recordset = CurrentDb.OpenRecordset(strSQL)
 
            ' 1. Spalte an das DataGrid-Recordset binden
            .BoundColumn = 1
 
            ' 1. Spalte an die Eingabebox binden
            .DisplayColumn = 1
 
          End With
        Case 4
          strType = .Text(nRow, 3)
          'strType = .ListItem.CellText(3)
          With oComboBox
            ' 2 Spalten selektieren
            strSQL = "SELECT tblArtikelDefinitionAwl.productsdef_unit " & _
                "FROM tblArtikelDefinitionAwl " & _
                "WHERE (((tblArtikelDefinitionAwl.language_id) = " & lngLangId _
                & ") And ((tblArtikelDefinitionAwl.productsdef_type) = '" & _
                strType & "')) " & _
                "ORDER BY tblArtikelDefinitionAwl.productsdef_index;"
 
            Set .Recordset = CurrentDb.OpenRecordset(strSQL)
 
            ' 1. Spalte an das DataGrid-Recordset binden
            .BoundColumn = 1
 
            ' 1. Spalte an die Eingabebox binden
            .DisplayColumn = 1
 
          End With
    End Select
  End With
 
End Sub