Hola
Acostumbra a utilizar los puntos de interrupción, coloca uno en la linea "strSentencia = strCabecera & strSelect" y revisa el valor que coge la sentencia SQL. A primera vista, me parece que las condiciones están al revés, es decir, creo que tienes que cambiar el <> por =
Código vb:
Ver originalIf Chk_Orden.Value = 1 Then
If strSelect = "" Then
strSelect = strSelect & " Orden = '" & Txt_Orden & "'"
Else
strSelect = strSelect & " and Orden = '" & Txt_Orden & "'"
End If
End If
If Chk_Fecha.Value = 1 Then
If strSelect = "" Then
strSelect = strSelect & " FHInicio = '" & Txt_Fecha & "'"
Else
strSelect = strSelect & " and FHInicio = '" & Txt_Fecha & "'"
End If
End If
De todas formas, repito, utiliza puntos de interrupción para depurar la aplicación, ya que es un sistema muy sencillo de depurar errores.
--Saludos--