关于数据填充的问题。。各位帮帮忙吧，谢谢了

在一个窗体中填充一个DBCOMBOBOX，第一次进去显示成功，可关闭窗口在打开的话会出现重复的数据，要怎么消除重复的数据了。。请大家帮帮忙了。
代码如下：
DM.AQ_bmsz.Open;
DM.AQ_bmsz.First;
while not DM.AQ_bmsz.Eof do
begin
DBComboBox2.AddItem(DM.AQ_bmsz.FieldValues['部门名称'],sender);
DM.AQ_bmsz.MoveBy(1);
end;