主题：如何找到最后一条或上一条或下一条或第一条记录

第一行：
Tables("表名").Position = 0
上一行：
With Tables("表名")
    .Position = .Position - 1
End With
下一行：
With Tables("表名")
    .Position = .Position + 1
End With
最末行：
With Tables("表名")
    .Position = .Rows.Count - 1
End With