Private Sub Command16_Click()
Si se esta buscando por los 3 cuadros de texto, entonces ejecutar:
    If Check3.Value And Check4.Value And Check5.Value Then
       dbReservas.Recordset.FindFirst "NConfirmacion=" & Chr(34) & Buscar_nconfirma.Text & Chr(34) & " AND Nombre=" & Chr(34) & Buscar_ncliente.Text & Chr(34) & " AND No_cupon=" & Chr(34) & Buscar_cupon.Text & Chr(34)
    Else
	Si solo se esta buscando por Nmero de Confirmacin:
       If Check3.Value Then
       dbReservas.Recordset.FindFirst "NConfirmacion=" & Chr(34) & Buscar_nconfirma.Text & Chr(34)
       Else
		Si solo se esta buscando por nombre:
          If Check4.Value Then
             dbReservas.Recordset.FindFirst "Nombre=" & Chr(34) & Buscar_ncliente.Text & Chr(34)
          Else
		Si solo se esta buscando por nmero de cupn:
             If Check5.Value Then
                dbReservas.Recordset.FindFirst "No_cupon=" & Chr(34) & Buscar_cupon.Text & Chr(34)
             End If
          End If
       End If
    End If
  Ocultar el Marco Buscar por Registros, e inhabilitar los controles
innecesarios
frameBuscar.Visible = False
Command1.Enabled = True
cmdModificar.Enabled = True
Command12.Enabled = True
Command15.Enabled = True
cmdRreservas.Enabled = True
cmdConsulta.Enabled = True
Hotel.Enabled = True
cmdVendedores.Enabled = True
cmdSalir.Enabled = True
dbReservas.Enabled = True
End Sub
