Private Sub GridAuftragWaren_FillComboBox(ByVal nRow As Long, ByVal nCol As _
  Long, oComboBox As sevDataGrid2.EditComboBox)
Set rsGridAuftragWarenFillComboBox = New Recordset
With GridAuftragWaren
    If nCol = 6 Then
      With oComboBox
        With rsGridAuftragWarenFillComboBox
            .ActiveConnection = con
            .Source = "SELECT  ktxt0, mnr, Gewicht, WWert, WWertWE FROM" & _
              "relWaren where del <> 1 ORDER BY ktxt0"
            .Open
        End With
        Set .Recordset = rsGridAuftragWarenFillComboBox
        .Width = 6250
        .ColWidth(1) = 3200 'ktxt0 - nicht eindeutige bezeichnung
        .ColWidth(2) = 800 'mnr - eindeutige nummer
        .ColWidth(3) = 800 'Gewicht - gewicht
        .ColWidth(4) = 800 'WWert - warenwert
        .ColWidth(5) = 650 'WWertWE - währungseinheit
        .BoundColumn = 0
        .DisplayColumn = 1
      End With
    End If
  End With
End Sub

____________________________________________
Nur die Dummen wissen alles selbst am besten.