绑定 ComboBox的有关问题

绑定 ComboBox的问题
过程声明     procedure   b_com(com:TComboBox;a:string;b:string);
过程实现     procedure   Tfrm_xygdjb.b_com(com:TComboBox;a:string;b:string);
begin
    com.Clear;
    with   data1.ADOQuery1   do
    begin
        close;
        sql.Clear;
        sql.Add( 'select   distinct   '+a+ '   from   '+b);
    open;
    end;
    while   Not   data1.ADOQuery1.Eof   do
    begin
        com.Items.Add(data1.ADOQuery1.FieldByName( 'a '));
          Data1.ADOQuery1.Next;
    end;
end;

过程调用   frm_xygdjb.b_com(ComboBox3; '工种 '; '工种表 ');  

各位帮我看看好不好     谢谢了

[解决办法]
com.Items.Add(data1.ADOQuery1.FieldByName( 'a '));
应该是
com.Items.Add(data1.ADOQuery1.FieldByName(a));
[解决办法]
上面说过的我就不说了!

就你贴出来的地方:
frm_xygdjb.b_com(ComboBox3; '工种 '; '工种表 ');
调用的时候是逗号 ", "不是分号 "; ".

第二个错误肯定是写的时候什么地方漏了分号 "; ".

还有,你的Query都没有执行. ADOQuery1.Open;