Erro de Sql, sem suporte

Quando vou fazer um select, da esse erro:

Microsoft OLE DB Provider for ODBC Drivers erro '80040e21'

O driver ODBC não oferece suporte para as propriedades solicitadas.

/, linha 356

Obs: quando o driver era 3.5, funcionava.

Set oocom = Server.CreateObject("ADODB.Connection")
oocom.ConnectionString = "UID=; PWD=; DRIVER={MySQL ODBC 5.2 ANSI Driver}; SERVER=; DATABASE="
oocom.Open()

Set oRs2 = Server.CreateObject("ADODB.Recordset")
if vardia_ = 0 then
SQL = "select * " & chr(13) & _
"from dia " & chr(13) & _
"order by dia Desc " & chr(13)
else

SQL = "select * " & chr(13) & _
"from dia " & chr(13) & _
"where CODIGO = " & vardia_ & " " & chr(13) & _

"order by dia Desc " & chr(13)
end if
oRs2.open SQL, Conn, 1
while not oRs2.EOF
Set oRs3 = Server.CreateObject("ADODB.Recordset")
SQL = "select distinct rferencia.Codigo , referencia.Descr " & chr(13)& _
"from referencia, horario " & chr(13) & _
"where referencia.Codigo = horario.Referencia " & chr(13) & _
"and horario.COD_DIA = " & oRs2("CODIGO") & " " & chr(13) & _
"and horario.COD_LINHA = " & oRs("CODIGO") & " " & chr(13) & _
"order by referencia.Descr " & chr(13)
'response.write "<pre>" & SQL & "</pre>"
'response.end
oRs3.open SQL, Conn, 1

O que pode ser?

Desde ja agradeço!