Prueba así, aunque no comprendo bien las conversiones que haces...
Código:
Re_Tabla_IRS.FindFirst ("" & Trim(Status_Persona) = "'" & Trim(wESTATUS) & "' And " & Trim(Str(De)) >= "'" & Trim(Text7) & "' And " & Trim(Str(Hasta)) <= "'" & Trim(Text7) & "'")
Saludos.