Visual Basic - Ayuda

Set RS = DB.OpenRecordset(\\\"SELECT * \\\" & _
\\\"FROM historico \\\" & _
\\\"WHERE [fechah]=\\\'\\\" & FechaSel & \\\"\\\'and[tipo mh]=\\\'\\\" & CondicionE & \\\"\\\'\\\")

Por que esta cadena me dicie que no corresponden los criterios siendo que fechah es de tipo fecha y fecha sel es igual

tu comando tiene una condicional, has chequedo esto pues si como dices la parte de fecha esta ok, puede sdarse el problema en lo ootro.
slds