' ----------------------------------------------
  ' Stammdaten aller Busse lesen
  ' ----------------------------------------------
 
  sSQL = "SELECT * FROM tblKfz ORDER BY kfz_bus  "
 
  With sevGrid1
    .LockUpdate True
    .Clear
 
    If Not oConn Is Nothing Then
      If dbFetchRecord(oConn, oRs, sSQL) Then
         Set oRsPlan = dbOpenRecordset(oConn, "SELECT * FROM" & _
           "tblZuteilungFahrzeug WHERE (zub_beginn < " & dbSQLFunc( _
           "FormatDate", m_DateTo) & " AND zub_ende >= " & dbSQLFunc( _
           "FormatDate", m_DateFrom) & ") ORDER BY zub_kfz, zub_beginn", , _
           adLockReadOnly)
 
        Do
          With .AddItem(CStr(NZ(oRs("zub_id"), 0)))
            ' ----------------------------------------- Busdaten in das Grid
            .FixColText(2) = NZ(oRs("kfz_bus"), "")
            .FixColText(3) = NZ(oRs("kfz_fahrzeugtyp"), "")
            .FixColText(4) = FormatNumber(NZ(oRs("kfz_sitze"), 0), 0, , , _
              vbTrue)