Apagando Do Bd

[Bruno G.]

O script:

<%
Dim caminhoAPAGAR
Dim conexaoAPAGAR

id = Request.QueryString("id")

caminhoAPAGAR = Server.MapPath("banco356.mdb")
Set conexaoAPAGAR = Server.CreateObject("ADODB.Connection")
conexaoAPAGAR.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminhoAPAGAR&";"

Set banco = Server.CreateObject("ADODB.Recordset")
Str = "delete * FROM comentarios WHERE id='"&id&"' "
banco.open Str, conexaoAPAGAR, 2, 1

Response.Write("Recado apagado. Retornando para pagina inicial")
response.redirect ("index.asp")

banco.close
%>

O erro

Microsoft JET Database Engine error '80040e07'

Data type mismatch in criteria expression.

/bruno/db2/acesso.asp, line 67

A linha 67

banco.open Str, conexaoAPAGAR, 2, 1

alguém ilumina?

Abraçossss. Valeu!

[Giancarlo Braga]

Tem um erro de SQL:

Str = "delete * FROM comentarios WHERE id='"&id&"' "

Não é delete * from, e sim delete from. Sem asterisco.

Abraço.

[Bruno G.]

o mesmo erro persiste.

Microsoft JET Database Engine error '80040e07'

Data type mismatch in criteria expression.

/bruno/db2/acesso.asp, line 67

[Giancarlo Braga]

Olha.

banco.open Str, conexaoAPAGAR, 2, 1

Tenta usar 2, 2. Quando eu usava Access era 2,2 e não 2,1.

[.Andreia.]

Tem certeza que ID é texto?? Se for numerico no banco então faça:

Str = "delete FROM comentarios WHERE id="&id