O meu código continua dando erro

Olá pessoal, o meu código continua dando erro, por favor me ajudem mais uma vez. Ele dá esse erro:Erro de tempo de execução do Microsoft VBScript (0x800A000D)Tipos incompatíveisO erro é nessa linha:If varCat = rsDestCat("Codigo_Cat") Thenaqui a variável recebe o codigo_cat como parametro, vindo da pág. menu_horizontal.aspsó uma das variáveis terá valor, a outra sempre estará vazia.varCat = Request.QueryString("CodCat")'aqui a variável recebe o codigo_subcat como parametro, vindo da pág. menu_vertical.aspvarSubcat = Request.QueryString("CodSubcat")strDestCat = " SELECT Top 2 Categoria.Codigo_Cat, ... Where Categoria.Codigo_Cat = "& varCatstrDestSub = " SELECT Top 2 SubCategoria.Codigo_Subcat, Produto ... Where Categoria.Codigo_Cat = "& varSubcat Call Open_cn<%If varCat = rsDestCat("Codigo_Cat") ThenSet rsDestCat = Conexao.Execute(strDestCat)While Not rsDestCat.EOF %><%= rsDestCat("Nome_Prod")%><%= FormatNumber(rsDestCat("Preco"),2)%><% rsDestCat.MoveNext Wend rsDestCat.CloseElseSet rsDestSub = Conexao.Execute(strDestSub)While Not rsDestSub.EOF %><%= rsDestSub("Nome_Prod")%><%= FormatNumber(rsDestSub("Preco"),2)%> <% rsDestSub.MoveNext Wend rsDestSub.Close End If Call Close_cn Set rsDestSub = Nothing Set rsDestCat = Nothing%>