Suppose 'Rs' is our RecordSet.

Code:
if Rs.EOF = True then
  msgbox("You reached EOF!"),vbinformation
end if
same for previous:

Code:
if Rs.BOF = True then
  msgbox("You reached BOF!"),vbinformation
end if