Private Sub sevGrid1_FillComboBox(ByVal nRow As Long, ByVal nCol As Long, _
                                  oComboBox As sevDataGrid2.EditComboBox)
 
    With sevGrid1
        If .Columns(nCol).Key = "STI_Kennzeichen" Then
           vRs_Close
           sSQL = "SELECT * FROM tblfahrtarten"
           vRs.CursorLocation = adUseClient
           vRs.Open sSQL, oConn, adOpenStatic, adLockOptimistic
           vRsOpen = True
           If vRs.RecordCount = 0 Then
              Exit Sub
           End If
           vRs.MoveFirst
           With oComboBox
              .ColumnAdd , "fid", 600
              .ColumnAdd , "ftxt", 3000
              .Width = 3600
              Do While Not vRs.EOF
                 .AddItem left(vRs!f1_Fahrtart, 2) & vbTab & Mid( _
                   vRs!f1_Fahrtart, 3, 47)
                 vRs.MoveNext
              Loop
              .DisplayColumn = 1
           End With
        End If
    End With
End Sub