vb设计中怎么防止溢出

Question

在toolbar中的按钮“首记录”，“上一个”“下一个”“尾记录”有这些代码 
If StrComp(Button.Key, "btnFirst") = 0 Then 
Adodc1.Recordset.MoveFirst 
ElseIf StrComp(Button.Key, "btnBefore") = 0 Then 
Adodc1.Recordset.MovePrevious 
ElseIf StrComp(Button.Key, "btnNext") = 0 Then 
Adodc1.Recordset.MoveNext 
ElseIf StrComp(Button.Key, "btnLast") = 0 Then 
Adodc1.Recordset.MoveLast 
然后在运行时到最后一项时，再执行Movenext就溢出了，这个问题怎么解决

Answer 1

记录到达首尾记录的时候要加判断语句