程序代码：

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循环。

程序代码：

If Adodc1.Recordset.RecordCount > 0 Then             '判断记录集是否为空。不为空则执行Then后面的语句。
If Adodc1.Recordset.BOF = True 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
Else                                                  '若记录集为空，则执行Else后面的语句。
MsgBox "数据表中无有效记录。请重试！", vbOKOnly + vbApplicationModal      '交互设计，报错。
End If