Error VBScript (0x800A01A8)

[Mplus]

Hola de nuevo!

Tengo un procedimento

<%
sub consulta(tipo,var)
Dim sQa
Dim sQa_numRows

Set sQa = Server.CreateObject("ADODB.Recordset")
sQa.ActiveConnection = MM_connBD_STRING

if tipo="dir" then
sQa.Source = "SELECT * from Emp_Datos inner join Emp_servicios on Emp_Datos.Cod_Emp=Emp_servicios.Cod_Emp where Emp_Datos.Cod_Emp in (select Cod_Emp FROM Emp_Actv WHERE SubPral like '00' or Sub2 like '00' or Sub3 like '00' )"
else
sQa.Source = "SELECT * FROM Emp_Datos INNER JOIN Emp_Servicios ON Emp_Datos.Cod_Emp = Emp_Servicios.Cod_Emp WHERE (Emp_Datos.Nombre LIKE '%prat%')"
end if

sQa.CursorType = 0
sQa.CursorLocation = 2
sQa.LockType = 1
sQa.Open()

sQa_numRows = 0
end sub
%>

y la llamada al procedimiento

consulta request.QueryString("opcion"),request.QueryString
("consulta")

y la consulte del valor de ese campo

<%=(sQa.Fields.Item("Emp_Datos.Nombre").Value)%>

...y me da ese error

alguien ve el fallo...

Gracias!