实时错误‘3021’，BOF 或EOF中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。请高手帮忙！

Question

代码如下：
Combo1.Clear
Combo1.Text = " "
Adodc1.Recordset.MoveFirst
While Not Adodc1.EOFAction
Combo1.AddItem Trim(Adodc1.Recordset.Fields(0))
Adodc1.Recordset.MoveNext
Wend运行时出错如题，并且出错的同时错误指向“Combo1.AddItem Trim(Adodc1.Recordset.Fields(0))”。请问这是什么原因，请高手帮忙！

Answer 1

刚进入循环体时没有记录
While Not Adodc1.EOFAction 
Combo1.AddItem Trim(Adodc1.Recordset.Fields(0)) 
Adodc1.Recordset.MoveNext 
Wend