vb datagrid

Set DataGrid1.DataSource = Adodc5
Adodc5.Recordset.MoveFirst
While Adodc5.Recordset.EOF = False
Combo2.AddItem Adodc5.Recordset("日期")
Adodc5.Recordset.MoveNext
Wend
Combo2.ListIndex = 0
Set DataGrid1.DataSource = Nothing

运行程序时会出现实时错误'3021'：
BOF或EOF中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

我调试了一下，发现如果数据库里没有数据的话就会出现这样的报错，请帮我看一下怎么修改？实现 如果数据库为空，那么combo2显示空白就好了。谢谢！！！！

vb datagrid vb中datagrid问题 VB Datagrid控件 vb.net datagrid 用法 vb datagrid 问题 vb datagrid 排序 vb datagrid不显示数据 vb中datagrid控件问题 VB adodc+datagrid +access问题 VB Datagrid控件的使用方法。