circular datalink are not allowed

[EMSO.EXE]

Estou fazendo um sistema de academia com access e quando tento logar ocorre o erro abaixo:

"circular datalink are not allowed"

Esta é a tabela de login

procedure TF_Logon.Button1Click(Sender: TObject);
begin
  with DataModule1.ADOQuery1 do
  begin
    Active:=False;
    SQL.Clear;
    SQL.Add('Select * from tb_funcionario where login =:log and senha =:snh');
    Parameters.ParamByName('log').Value:=edit_login.Text; //<----------------------- TRAVA AQUI
    Parameters.ParamByName('snh').Value:=edit_passwd.Text;
    Active:=True;
    //================================================
    if RecordCount > 0 then
        F_Principal.ShowModal
    else
        ShowMessage('Login ou Senha incorretos, verifique');
        edit_login.Text:='';
        edit_passwd.Text:='';
        edit_login.SetFocus;
  end;
end;

Obrigado!

[Jhonas]

"circular datalink are not allowed"

Esse erro não é de código mais sim de configuração de componente... os componentes de acesso estão ligados de forma errada, ou seja , se voce liga um componente a um outro e nesse outro voce liga de volta.

Então voce deve desfazer essa ligação de retorno... um exemplo seria voce usar a popriedade Connection do ADOQuery e definir tambem a propriedade ConnectionString do Proprio ADOQuery

abraço