Private Sub Combo1_GotFocus()
'
'DB Horarios
'
Combo1.Clear
dbHorarios.DatabaseName = frmMain.Ap_Path & frmMain.dbName
dbHorarios.RecordsetType = 1
dbHorarios.RecordSource = "Select Horario FROM Horarios WHERE Servicio=" & Chr(34) & Combo2.Text & Chr(34)
dbHorarios.Refresh
   dbHorarios.Recordset.MoveFirst
   Do While Not dbHorarios.Recordset.EOF
     Combo1.AddItem dbHorarios.Recordset.Fields("Horario").Value
     dbHorarios.Recordset.MoveNext
   Loop
   SendKeys "{down}"
End Sub
