菜鸟求救：出现i/o error 6的错误，怎莫会事？(30分)

with ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('select * from deparment');
open;
end;
while not EOF do
begin
ComboBox1.Items.Add(ADOQuery1.FieldByName('Dname').asString);
next;
end;
comboBox1.ItemIndex:=0;
我想从deparment表中取出Dname字段加到comboBox1中，然后显示第一项，但
出现i/o error 6的错误，怎莫会事？

with 语句的范围有问题？另外
with ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('select * from deparment');
open;
first; //这句要加
while not EOF do
begin
ComboBox1.Items.Add(ADOQuery1.FieldByName('Dname').asString);
next;
end;
end;
comboBox1.ItemIndex:=0;

zjc的应该没问题

while not EOF do
^^^^^^^^^^^^^^^^^^^^^^^这句有问题，改成：while not ADOQuery1.Eof do，否则成了system.eof,
你又没有打开文件，当然会出现I/O Error啦！

begin
ComboBox1.Items.Add(ADOQuery1.FieldByName('Dname').asString);
next;
end;

接受答案了.