Delphi 2009 + Access + ADO Connection

[Luis Bastidas]

Alguien seria tan amable de ayudarme con mi problema.

Estoy queriendo hacer un update a una tabla de access por medio de un componente de delphi 2009 que se llama ADOQuery ... pero cuando corro mi aplicacion en delphi me regresa este error.

"Query1: CommandText does not return a result set"

Eso pasa inmediatamente de pasar por la linea del open del siguiente texto.

With Modulo.Query1 Do
begin
Close;
SQL.Clear;
SQL.add('Update Permisos ' +
'Set Connectado = ' + Status + ' ' +
'where UserID = :User ');
Parameters.ParamByName('User').Value := UserName.Text;
Open;
end;

Es un texto sencillo pero no he podido encontrar el porque marca el error.

De antemano gracias por su ayuda.