Проверка на последнюю запись

dim r as Recordset
set r=CurrentDb.Openrecordset('tName',dbOpenDynaSet)
if r.EOF then  
' таблица пустая
end if
r.MoveLast
' чтение из столбца colName
dim l_Var 
l_Var=r.Fields('colName')
'изменение значения в том же столбце
r.Edit
 r.Fields('colName').value=123
r.Update
 
r.Close

Public Function LastRecord(rs As Recordset) As Boolean
  rs.MoveNext
  If rs.EOF Then
    LastRecord = True
  Else
    LastRecord = False
  End If
  rs.MovePrevious
End Function
 
Private Sub test()
Dim s As String
Dim rs As Recordset
  's = 'SELECT * FROM Table1'
  s = 'SELECT * FROM Query1'
  Set rs = CurrentDb.OpenRecordset(s)
  Do Until rs.EOF
    MsgBox LastRecord(rs)
    rs.MoveNext
  Loop
  rs.Close
End Sub

Me.RecodsetClone.Bookmark = Me.Bookmark
MsgBox LastRecord(Me.RecodsetClone)

Private Function atLastRec(frm As Form_vvod_ocenok_podch1) As Boolean
'Возвращает True, если Вы находитесь на последней
'строке, и False в противном случае.
Dim rstBkm As ADODB.Recordset
 
On Error Resume Next
Set rstBkm = frm.RecordsetClone
rstBkm.Bookmark = frm.Bookmark
rstBkm.MoveNext
atLastRec = rstBkm.EOF
 
Set rstBkm = Nothing
Err.Clear
 
End Function