Private Sub Rsvhora_GotFocus()
On Error Resume Next
se borra el contenido del control Rsvhora, y se llena con los horarios
disponibles para el servicio capturado en el control Rsvactiv
Rsvhora.Clear
dbHorarios.DatabaseName = frmMain.Ap_Path & frmMain.dbName
dbHorarios.RecordsetType = 1
dbHorarios.RecordSource = "Select Horario FROM Horarios WHERE Servicio=" & Chr(34) & Rsvactiv.Text & Chr(34)
   dbHorarios.Refresh
   dbHorarios.Recordset.MoveFirst
   Do While Not dbHorarios.Recordset.EOF
     Rsvhora.AddItem dbHorarios.Recordset.Fields("Horario").Value
     dbHorarios.Recordset.MoveNext
   Loop
End Sub
