Private Sub sevGrid1_FillComboBox(ByVal nRow As Long, ByVal nCol As Long, _
                                  oComboBox As sevDataGrid2.EditComboBox)
    With sevGrid1
        If .Columns(nCol).Key = "Zul_Zustieg" Then
            cRs_Close
            sSQL = "SELECT ZuCode, ZuText FROM tblzustieg ORDER BY ZuText"
            cRs.CursorLocation = adUseClient
            cRs.Open sSQL, oConn, adOpenKeyset, adLockOptimistic
            cRsOpen = True
            If cRs.RecordCount = 0 Then
               MsgBox "Es wurden noch keine Zusteigeorte erfasst"
               cRs_Close
               Exit Sub
            End If
            With oComboBox
              Do While Not cRs.EOF
                .AddItem cRs!ZuCode & vbTab & cRs!ZuText
                cRs.MoveNext
              Loop
            End With
        End If
    End With
End Sub