Private Sub sevGrid1_FillComboBox(ByVal nRow As Long, ByVal nCol As Long, _
  oComboBox As sevDataGrid2.EditComboBox)
 
  With sevGrid1
 
    If nCol = .GetCol("maschine") Then
 
      With oComboBox
 
         Set .Recordset = db.OpenRecordset("SELECT Nr, Bezeichnung FROM" & _
           "smh_Maschinen ORDER BY Nr", dbOpenDynaset, dbSeeChanges)
        .BoundColumn = 1
        .DisplayColumn = 2
        .Width = 4000
        .ListRowsMax = 10
        .COLWIDTH(1) = 700
 
      End With
 
    End If
 
  End With
 
End Sub

Private Sub sevGrid1_RowLoaded(ByVal nRow As Long, Item As _
  sevDataGrid2.ListItem)
 
  Dim tblMaschine As Recordset
  Dim id As Long
 
  With Item
 
    id = Val(.CellText("maschine"))
 
    If id > 0 Then
 
       Set tblMaschine = db.OpenRecordset("SELECT * FROM smh_Maschinen where Nr" & _
         "= " & id, dbOpenDynaset, dbSeeChanges)
       If tblMaschine.RecordCount <> 0 Then
          .CellText("Maschine") = Trim("" & tblMaschine!Bezeichnung)
       End If
 
    End If
 
  End With
 
End Sub