Boton

[pkj]

No entiendo mucho, pero imagino que será algo así:

Código vb:

Private Sub cmdBuscar_Click()
 
  If cmbHorario = "" and txtFecha = "" Then
    MsgBox ("Ingrese Hora y/o Fecha. Gracias")
    Exit Sub
  End If
 
  If cmbHorario <> "" and txtFecha = "" Then
    rst.Open "Select * from Vespertino where Horario='" & Me.cmbHorario & "'", CBD, adOpenKeyset, adLockBatchOptimistic
    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")
    End If
  ElseIf cmbHorario = "" and txtFecha <> "" Then
    rst.Open "Select * from Vespertino where Fecha='" & Me.txtFecha & "'", CBD, adOpenKeyset, adLockBatchOptimistic
    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")
    Else
      MsgBox "HORA LIBRE"
      txtProfesor = ""
      cmbHorario.Text = ""
      txtMateria.Text = ""
      txtGrupo.Text = ""
      txtEquipo.Text = ""
      txtFecha.Text = ""
      txtFolio.Text = ""
      cmbHorarioSalida.Text = ""
    End If
  Else
    rst.Open "Select * from Vespertino where Horario='" & Me.cmbHorario & "' and Fecha='" & Me.txtFecha & "'" , CBD, adOpenKeyset, adLockBatchOptimistic
    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")
    Else
      MsgBox "HORA LIBRE"
      txtProfesor = ""
      cmbHorario.Text = ""
      txtMateria.Text = ""
      txtGrupo.Text = ""
      txtEquipo.Text = ""
      txtFecha.Text = ""
      txtFolio.Text = ""
      cmbHorarioSalida.Text = ""
    End If
 
  End If
  rst.Close
 
End Sub
 

Te falla el msgbox posiblemente porque te falta un End If.

Estructura el código para poder notar cuando una sección no se ha cerrado correctamente.
Ejm: un Do sin Loop, un For sin Next, etc.

Saludos