Private Sub sevGrid4_FillComboBox(ByVal nRow As Long, ByVal nCol As Long, _
                                  oComboBox As sevDataGrid2.EditComboBox)
 
    With sevGrid4
        If .Columns(nCol).Key = "EinCode" Then
           aRs_Close
           sSQL = "SELECT * FROM tblzustieg ORDER BY ZuText"
           aRs.CursorLocation = adUseClient
           aRs.Open sSQL, oConn, adOpenKeyset, adLockOptimistic
           aRsOpen = True
           If aRs.RecordCount = 0 Then
              MsgBox "Es sind keine Zusteigeorte angelegt ..."
              Exit Sub
           End If
           aRs.MoveFirst
           With oComboBox
               .ColumnAdd , "code", 1000
               .ColumnAdd , "Ort", 6000
               .Width = 7000
               Do While Not aRs.EOF
                  .AddItem aRs!ZuCode & vbTab & aRs!ZuText
                  aRs.MoveNext
               Loop
               ' Autocomplete aktivieren
               .AutoComplete = True
           End With
        End If
    End With
End Sub
 
Private Sub sevGrid4_EditComboClick(ByVal ListIndex As Long, ByVal sText As _
  String)
  With sevGrid4
    If .Col = .GetCol("EinCode") Then
      If .IsEditMode = MODE_ADDNEW Then
        .CellNew("EinOrt1") = .EditSubItem("Ort")
      End If
    End If
  End With
End Sub