Consulta SQL desde Access y Excel

Hola a todos, me gustaría que me resolvierais una duda que me trae toda la semana de p... C...
Porque no me devuelve los mismos registros el siguiente código al ejecutarlo desde Access o desde Excel:
**********************************+
Dim db As Database
Set db = Workspaces(0).OpenDatabase(vafps01_pfsdb01, False, True, "ODBC;DSN=*********;UID=*******;Pwd=********")
Dim rs As Recordset
strSQL = "select distinct pm.pmnum, eq.eqnum, eq.DESCRIPTION as EQDESC, eq.EQ1, blc.cell_name, bll.line_name, jp.jpNUM, jp.DESCRIPTION, jl.craftqty, jl.laborhrs, jl.craftqty*jl.laborhrs, pm.supervisor, pm.FREQUENCY, pm.nextdate, jl.craftqty*jl.laborhrs*365/pm.FREQUENCY, to_char(pm.nextdate, 'DAY') " & _
"from MAXIMO.jobplan jp, MAXIMO.joblabor jl, MAXIMO.pm pm, MAXIMO.EQUIPMENT eq, pcon.bl_equip ble, pcon.bl_line bll, pcon.bl_cell blc " & _
"where not ble.cell_sakey is null and (jp.jpnum = jl.jpnum) AND (pm.jpnum=jp.jpnum) AND (eq.eqnum=pm.eqnum) and (substr(eq.eqnum,6,7) = ble.equip_code or substr(eq.eqnum,3,7) = ble.equip_code) and (ble.cell_sakey = blc.cell_sakey) and (blc.line_sakey = bll.line_sakey) and substr(pm.pmnum,1,1) = substr(('" & Maestro & "'),1,1) "
Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot, dbSQLPassThrough)
*************************************
Con excel me devuleve un total de 10040 registros 8250 la primera consulta y 1782 la segunda
Con Acess la primer consulta 8122(que no se si sera el maximo de registros que admiteo o que??) y la segunda parte 0 patatero
Gracias de antemano...