Erro Maluco

estou fazendo uma rotina criei um include e esse include me gereou o seguinte erro

Provider error '80020005'

Type mismatch.

/arquivo.inc, line 9

como posso corrigir antes de tudo o id vem mesmo como número

set rs = server.CreateObject("adodb.recordset") sSql = "select * from tabela where id= "&id&" " set rs= conexao.execute(rs)parece uma rotina comum mas no entanto me vem o seguinte erro