Boton

[Jexica]

Como ago en este codigo para que en lugar de solo Buscar por medio de Horario tambien me busque por Fecha:

Y como ago que el If que puse con el msgbox me funcione mas de una vez, ya que lo pruebo y no pongo hora ni fecha o solo no pongo uno de los dos y me marca el msgbox pero al usarlo de nuevo me manda un error. ¿Como lo resuelvo?
************************************************** *********
Private Sub cmdBuscar_Click()
rst.Open "Select * from Vespertino where Horario='" & Me.cmbHorario & "'", CBD, adOpenKeyset, adLockBatchOptimistic

If cmbHorario = "" and txtFecha = "" Then
MsgBox ("Ingrese Hora y Fecha. Gracias")
Else

If Not rst.EOF Then

txtProfesor.Text = rst("NombreMaestro")
cmbHorario.Text = rst("Horario")
txtMateria.Text = rst("Materia")
txtGrupo.Text = rst("Grupos")
txtEquipo.Text = rst("Equipo")
txtFecha.Text = rst("Fecha")
txtFolio.Text = rst("NoReunion")
cmbHorarioSalida.Text = rst("HorarioSalida")
rst.Close

Else
MsgBox "HORA LIBRE"
txtProfesor = ""
cmbHorario.Text = ""
txtMateria.Text = ""
txtGrupo.Text = ""
txtEquipo.Text = ""
txtFecha.Text = ""
txtFolio.Text = ""
cmbHorarioSalida.Text = ""
rst.Close
End If

End Sub
************************************************** **********

Si me dejan el codigo correjido PERFECTO.