ADO控件的Move方法定位记录的相关问题。

If Adodc1.Recordset.BOF = True Then              '判断是记录指针否到达记录头，若到达则执行Then后面的语句。
Adodc1.Recordset.MoveFirst                            '移动到记录头
MsgBox "记录指针移动错误，指针已移动到首条记录。"        '交互设计。告诉用户已经到达文件头。
Else                                                 '若没有到达
Adodc1.Recordset.MovePrevious                       '向前移动一条记录。
For i = 0 To 4                                      '填充文本框
Text1(i).Text = Adodc1.Recordset.Fields(i)
Next i
End If                                           '结束if循环。