用edit查询显示数据的问题(50分)

我想通过edit1查询表中字段（bh)的记录然后把同记录中另一个字段(rq)记录
在edit2中显示出来。应该怎么用sql写。我用的是delphi5+ado+access2000(只用了
adoconnection和daodataset两个ado控件)

adoquery1.sql.text:=('select * from mytable where hh=:a');
adoquery1.parameters[0].value:=edit1.text;
adoquery1.open;
edit2.text:=adoquery1('rq');

我没用adoquery,我用的是adodataset
应该怎么写呢

procedure TForm1.Button1Click(Sender: TObject);
begin
if ADODataSet1.Active then ADODataSet1.Close;
ADODataSet1.CommandText := 'select * from USERS Where USERNAME =:ENAME';
ADODataSet1.Parameters.ParamByName('ENAME').value:= Edit1.Text;
ADODataSet1.Open;
if not ADODataSet1.Eof then
Edit2.Text := ADODataSet1.Fields.FieldByName('PASSWORD').AsString
else Edit2.Text := 'Not found the Record !';
end;

多人接受答案了。