Erro: 800a01ca

[tsarri]

Salve gente beleza bom eu fiz um select que traz todos os cheques pra mim e crie um variavel aonde ira armezenar todos os id de cheques nele, ele funcionou em um site que eu já fiz, quando eu fui pegar a mesma função e usar em outro site e começou a apareçer este erro

Erro de tempo de execução do Microsoft VBScript erro '800a01ca'

A variável usa um tipo de automação sem suporte no VBScript

O pior é que esta dando o ero na If id_cheque = "" Then.

aí eu deixei assim: If CInt(id_cheque) = "" Then e começou a dar erro nesta linha e não consegui arrumar:

Id_cheque = Id_cheque & ", " & RsIdCheque("id_cheque")

o que podera ser heim???

While Not RsIdCheque.EOF

If Id_cheque = "" Then ' - Erro aqui

Id_cheque = RsIdCheque("id_cheque")

Else

Id_cheque = Id_cheque & ", " & RsIdCheque("id_cheque")

End If

RsIdCheque.MoveNext

Wend

[.Andreia.]

debuga:

<%
response.write Id_cheque
response.end

While Not RsIdCheque.EOF

If Id_cheque = "" Then ' - Erro aqui
Id_cheque = RsIdCheque("id_cheque")
Else
Id_cheque = Id_cheque & ", " & RsIdCheque("id_cheque")
End If
RsIdCheque.MoveNext
Wend
%>

veja o que está retornando...