Erro no delete

[Felipe_SP 0]

Fala ae pessoal,beleza? Eu criei um cadastro de e-mail e senha,ele busca no banco os campos,faz o insert e lista embaixo até ai beleza.só que na hora de deletar ele dá o seguinte erro:Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)[Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 1.Alguém poderia me dar um help?Aqui vai o codigo...

<%				If Request.Form("adicionar")<>"" ThenCall Adiciona_Email ()End IfIf Request.form("pID") <> "" Then	Call Exclui_Email(Request.Form("pID"))	End If':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::'Função para inserir os campos de  email e senha':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::Function Adiciona_Email ()	Dim email,senha	          email = Request.Form("email")senha     = Request.Form("senha")	'::: Abre conexão com o bancoCall Conecta()objconn.execute = "INSERT INTO Usuarios (email,senha) values ('" & email & "','" & senha & "')"		' ::: Fecha a conexão com o banco	Call Desconecta()End Function	'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::': Lista a tabela de menu'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::Set EmailRs = Server.CreateObject("ADODB.Recordset")'::Conecta com o Banco :::Call Conecta()EmailRs.Open"Select Usuarios.id, Usuarios.email, Usuarios.senha from Usuarios Order by email",objconn%><form method="post" name="frmExclui" action="<%=Request.ServerVariables("SCRIPT_NAME")%>">	<input name="pID" type="hidden" value="" /></form><table width="600" border="1" align="center" cellpadding="4"> <tr>    <th>Email</th>	<th>Senha</th>	<th>Apagar</th> </tr> <% Do While NOT EmailRs.EOF %> <tr> 		<td nowrap ><%=EmailRs("email")%></td>    <td nowrap><%=EmailRs("senha")%></td>	<td nowrap=><a onClick="java script: exclui('<%=EmailRs("id_usuario")%>');"><img src="ico_caixa.jpg" border="0" /></a></td></tr><%  EmailRs.moveNext   Loop		':::; Desconecta com o banco:::'Call Desconecta%></table></html><% '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::':::Exclui registro da lista de menu':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::Function Exclui_Email (ByVal Id)Call Conecta':::Conecta com o Banco:::objconn.execute "Delete from menu_item where id_usuario="&idEnd Function':::Desconecta com o Banco:::Call Desconecta'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::%>

[Felipe_SP 0]

Já resolvi!!!Valeu!