如何使用ADODB在Access窗体中添加上一条/下一条导航功能

嘿，我把你提供的这段VBA模块代码按规范格式整理好了，不管是自己调试还是后续交流都能更清晰易读：

Global con As New ADODB.Connection
Global NoRecords As Boolean

Public Enum rrCursorType
    rrOpenDynamic = adOpenDynamic
    rrOpenForwardOnly = adOpenForwardOnly
    rrOpenKeyset = adOpenKeyset
    rrOpenStatic = adOpenStatic
End Enum

Public Enum rrLockType
    rrLockOptimistic = adLockOptimistic
    rrLockReadOnly = adLockReadOnly
End Enum

Public Function OpenMyR...

内容的提问来源于stack exchange，提问作者William76