Problemas Com Select

[ju_rezende]

Olá pessoal estou com um problema de select, Será que alguém poderia me dar uma ajudinha.

está dando o seguinte erro

Tipo de erro:

Microsoft JET Database Engine (0x80040E07)

Tipo de dados imcompatível na expressão de critério.

/tulio/tulio/tulio/tulio/luxuria/blog/blogpes.asp, line 196

Vou deixar aqui meu cod.

<%set rs4= server.CreateObject("ADODB.Recordset")

sql4= "select * from blog where mês =" & vmes & " and ano = " & vano

rs4.open sql4,con,3,3

vcodigo=rs4("codigo")

set rs6= server.CreateObject("ADODB.Recordset")

sql6= "select * from Comentario where codigo =" & vcodigo LINHA 196

rs6.open sql6,con,3,3

'response.write sql4

'response.End

'response.write sql4

'response.end

Do while rs4.eof=false%>

<tr>

<td width="495" height="13" class="style2"><%=rs4("data")%> - <%=FormatDateTime(rs4("hora"),4) %></td>

</tr>

<tr>

<td width="495" height="14"></td>

</tr>

<tr>

<td width="495" height="20" align="left" valign="top" class="style3" ><%=rs4("titulo")%></td>

</tr>

<tr>

<td width="495" height="13" ></td>

</tr>

<tr>

<td width="495" height="60" align="left" valign="top" class="style4" ><%=rs4("texto")%></td>

</tr>

<tr>

<td width="495" height="23"></td>

</tr>

<tr>

<td width="495" height="18" align="right" class="style4"><img src="images/img_coment.gif" width="28" height="14" /><a href="blog_coment.asp?codigo=<%=rs4("codigo")%>">Comentar</a>

| Ver (<%=rs6.recordcount%>) </td>

</tr>

<tr>

<td width="495" height="10"></td>

</tr>

<tr>

<td width="495" height="1" background="images/pontilhado.gif"></td>

</tr>

<tr>

<td width="495" height="21"></td>

</tr>

<%rs4.movenext

Loop%>

abraços

[.Andreia.]

codigo é do tipo numerico no seu BD?

[ju_rezende]

pior que é