Fórum Access2003 ADO Delphi 2005 #283061

Olá;

Preciso fazer um UPDate e um Delete na tabela com TADOQuery mas não funciona. Vejam abaixo a string de conexão e o sql:

Conexao := ´Provider=Microsoft.Jet.OLEDB.4.0;´ +
´User ID=Admin;´ + ´Data Source=´ +
Local + ´;´ + ´Mode=ReadWrite;´ +
´Extended Properties=´´;´ +
´Persist Security Info=False;´ +
´Jet OLEDB:System database=´´;´ +
´Jet OLEDB:Registry Path=´´;´ +
´Jet OLEDB:Database Password=excon;´ +
´Jet OLEDB:Engine Type=5;´ +
´Jet OLEDB:Database Locking Mode=1;´ +
´Jet OLEDB:Global Partial Bulk Ops=2;´ +
´Jet OLEDB:Global Bulk Transactions=1;´ +
´Jet OLEDB:New Database Password=´´;´ +
´Jet OLEDB:Create System Database=False;´ +
´Jet OLEDB:Encrypt Database=False;´ +
´Jet OLEDB:Don´´t Copy Locale on Compact=False;´ +
´Jet OLEDB:Compact Without Replica Repair=False;´ +
´Jet OLEDB:SFP=False´;
dbWorkSafe.ConnectionString := Conexao;
dbWorkSafe.Connected := True;


SQL:

iTBSenha.Connection.BeginTrans;
iTBSenha.SQL.Clear;
iTBSenha.SQL.Add(´update Usuario set Nome = :pNome, Senha = :pSenha,´);
iTBSenha.SQL.Add(´Chave = :pChave, Status = :pStatus, Ativo = :pAtivo´);
iTBSenha.SQL.Add(´where((idUser = :pUser))´);
iTBSenha.Parameters.ParamByName(´pUser´).Value := idUsuario;
iTBSenha.Parameters.ParamByName(´pNome´).Value := edNome.Text;
iTBSenha.Parameters.ParamByName(´pSenha´).Value := edSenha.Text;
iTBSenha.Parameters.ParamByName(´pChave´).Value := edChave.Text;
iTBSenha.Parameters.ParamByName(´pStatus´).Value := rgStatus.ItemIndex;
iTBSenha.Parameters.ParamByName(´pAtivo´).Value := chkAtivo.Checked;
iTBSenha.Prepared := True;
showmessage(iTBSenha.Parameters.ParamByName(´pUser´).Value +
iTBSenha.Parameters.ParamByName(´pNome´).Value +
iTBSenha.Parameters.ParamByName(´pSenha´).Value +
iTBSenha.Parameters.ParamByName(´pChave´).Value +
iTBSenha.Parameters.ParamByName(´pStatus´).Value +
iTBSenha.Parameters.ParamByName(´pAtivo´).Value);
iTBSenha.ExecSQL;
iTBSenha.Connection.CommitTrans;
Os dados não estão sendo alterados na tabela. Alguma dica ?

Valeu.