Private Sub Rsvactiv_LostFocus()
On Error GoTo Errores
Se llena el control data con los registros de la tabla Servicios donde el
servicio es el que se capturo en el Combo Box Rsvactiv. Cabe recordar que 
la tabla servicios, tiene un registro para cada servicio y horario que existe.
dbVServ.DatabaseName = frmMain.Ap_Path & frmMain.dbName
dbVServ.RecordsetType = 1
dbVServ.RecordSource = "Select * FROM Servicios WHERE IIdent=" & Chr(34) & Rsvactiv.Text & Chr(34)
dbVServ.Refresh
Se determina el da de la semana que ser cuando se tome el tour, y se
averigua si dicho da esta disponible el servicio requerido.
       Select Case Weekday(SSDateCombo1.Text)
       Case Is = 1
            If dbVServ.Recordset.Fields("Domingo").Value = False Then
               MsgBox "El Servicio no esta Disponible en esa fecha...", vbCritical, "Disponibilidad de Servicios"
               SSDateCombo1.SetFocus
            End If
        Case Is = 2
             If dbVServ.Recordset.Fields("Lunes").Value = False Then
               MsgBox "El Servicio no esta Disponible en esa fecha...", vbCritical, "Disponibilidad de Servicios"
               SSDateCombo1.SetFocus
            End If
        Case Is = 3
             If dbVServ.Recordset.Fields("Martes").Value = False Then
               MsgBox "El Servicio no esta Disponible en esa fecha...", vbCritical, "Disponibilidad de Servicios"
               SSDateCombo1.SetFocus
               End If
        Case Is = 4
             If dbVServ.Recordset.Fields("Miercoles").Value = False Then
               MsgBox "El Servicio no esta Disponible en esa fecha...", vbCritical, "Disponibilidad de Servicios"
               SSDateCombo1.SetFocus
             End If
        Case Is = 5
             If dbVServ.Recordset.Fields("Jueves").Value = False Then
               MsgBox "El Servicio no esta Disponible en esa fecha...", vbCritical, "Disponibilidad de Servicios"
               SSDateCombo1.SetFocus
            End If
        Case Is = 6
             If dbVServ.Recordset.Fields("Viernes").Value = False Then
               MsgBox "El Servicio no esta Disponible en esa fecha...", vbCritical, "Disponibilidad de Servicios"
               SSDateCombo1.SetFocus
            End If
        Case Is = 7
             If dbVServ.Recordset.Fields("Sabado").Value = False Then
               MsgBox "El Servicio no esta Disponible en esa fecha...", vbCritical, "Disponibilidad de Servicios"
               SSDateCombo1.SetFocus
            End If
End Select

Errores:
End Sub
