Microsoft Jet Database Engine (0x80040e07)

[smez]

esta dando o seguinte erro na hora da consulta

Tipo de erro:

Microsoft JET Database Engine (0x80040E07)

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

/emaisfestas/vagenda.asp, line 94

<%
                                    data=Request.Querystring("data")
                                    
                                        regs = 4 'Aqui setamos quantos registros serão listados por página
                                        pag = request.querystring("pagina")

                                            if pag = "" Then
                                               pag = 1
                                            end if

                                        set rs = createobject("adodb.recordset")
                                        set rs.activeconnection = abredb

                                        rs.cursortype = 3 'Definimos o cursor a ser utilizado
                                        rs.pagesize = regs

                                        sql = "SELECT * FROM agenda WHERE data='" & data & "'"
                                        rs.open sql

                                            if rs.eof or rs.bof then
                                               response.write "<font face='Verdana, Arial, helvetica, sans-serif' size='1'>Não a festa hoje!</font>"
                                            else
                                               rs.absolutepage = pag
                                                   contador = 0
            Function to_html(s_string) 
                  to_html = Replace(s_string, vbcrlf, "<br>") 
                   to_html = Replace(to_html, "&nbsp;", "") 
                   to_html = Replace(to_html, Chr(9),"&nbsp;&nbsp;") 
                   to_html = Replace(to_html, ":)", "<img src=""img/smiley1.gif"" width=""17"" height=""17"">")
                to_html = Replace(to_html, ";)", "<img src=""img/smiley2.gif"" width=""17"" height=""17"">")
                to_html = Replace(to_html, ":o", "<img src=""img/smiley3.gif"" width=""17"" height=""17"">")
                to_html = Replace(to_html, ":D", "<img src=""img/smiley4.gif"" width=""17"" height=""17"">")
                to_html = Replace(to_html, ":errr:", "<img src=""img/smiley5.gif"" width=""17"" height=""17"">")
                to_html = Replace(to_html, ":(", "<img src=""img/smiley6.gif"" width=""17"" height=""17"">")
                to_html = Replace(to_html, "X(", "<img src=""img/smiley7.gif"" width=""17"" height=""17"">")
                'to_html = Replace(to_html, "expressao", "susbtituida por")
                to_html = Replace(to_html, "marvel", "<a href=""http://www.marvel.com"" target=""_blank"">Marvel</a>")
                to_html = Replace(to_html, "dccomics", "<a href=""http://www.dccomics.com"" target=""_blank"">DC Comics</a>")
            End Function
                                    %>

onde esta o erro

[.Andreia.]

Esse erro da-se quando voce trata no codigo os campos como um tipo de dado e no banco é outro.

[smez]

como que eu faço para arrumar, no banco de dados o campo data esta como data/hora

[.Andreia.]

Tente assim:

sql = "SELECT * FROM agenda WHERE data= #" & data & "#"