[Resolvido] DODB.Field error '800a0bcd' Either BOF or EOF

Galera se liga no erro besta que com só um if rs.EOF resolve

mas nao tah resolvendo e nao sei pq

to colocando o codigo ai pra vcs verem se eu coloquei alguma coisa errada e possam me dar uma luz

erro:ADODB.Field error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

strSQL = ("Select * from tbChamado where resChamado = '"&vuser&"' and newChamado = 1")

 Set db = Server.CreateObject("ADODB.Connection")
 db.CursorLocation=3
 db.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=intranet;PWD=P@$$Sion_Intranet#08;Initial Catalog=Chamados;Data Source=TITANIO"

 Set rs = Server.CreateObject("ADODB.Recordset")
 rs.Open StrSQL,Db

 id = rs("numChamado")

 if rs.EOF then
 response.Write("teste")

 else

 response.Write(id)
 end if