Private Sub Form_Load()
Se establece el nombre de los encabezados y el ancho de cada columna del
SCGrid. En tiempo de diseo se fija a 5 columnas y una fila fija el SCGrid.
    With SCGrid1
        .Text(-1, 0) = "Fecha"
        .Text(-1, 1) = "Servicio"
        .Text(-1, 2) = "Hora"
        .Text(-1, 3) = "Ocupados"
        .Text(-1, 4) = "Libres"
        .ColWidth(0) = 80
        .ColWidth(1) = 120
        .ColWidth(2) = 40
        .ColWidth(3) = 60
        .ColWidth(4) = 40
  End With
'se establece la base de datos del control data dbConsultas
dbConsultas.DatabaseName = frmMain.Ap_Path & frmMain.dbName
dbConsultas.RecordsetType = 1

'Horarios
'
dbCHorarios.DatabaseName = frmMain.Ap_Path & frmMain.dbName
dbCHorarios.RecordsetType = 1
'
'Servicios
'
se llena el ComboBox con los servicios
Combo1.Clear
dbCServicios.DatabaseName = frmMain.Ap_Path & frmMain.dbName
dbCServicios.RecordsetType = 1
dbCServicios.RecordSource = "Select Distinct IIdent FROM Servicios"
dbCServicios.Refresh
dbCServicios.Recordset.MoveFirst
   Do While Not dbCServicios.Recordset.EOF
     Combo1.AddItem dbCServicios.Recordset.Fields("IIdent").Value
     dbCServicios.Recordset.MoveNext
   Loop
'
'Establece Fecha Actual
'
SendKeys Format(Now(), "dd/mm/yy")
End Sub
