关于ACCESS数据库用VB访问时的，数据显示问题！

[caption_cc]

请问以下程序在读到最后一条记录后出现，BOF或EOF为真错误，无法读取记录，我怎么改才可以使我点击一下按钮，显示一条记录，到最后一条时按下无效呢？？

private Sub Command4_Click()
rs.MoveNext
If rs.EOF Then exit sub
Text1(0).Text = Trim(rs.Fields(1).Value) & ""
Text1(1).Text = rs("注释") & ""
Text1(2).Text = rs("内容") & ""
End Sub