Private Sub Data1_Reposition()
Screen.MousePointer = vbDefault
On Error Resume Next
Data1.Caption = "记录：" & (Data1.Recordset.AbsolutePosition + 1)

End Sub
这段代码什么意思？请各位高手帮忙看下，我刚开始接触vb，每条语句代表什么意思能详细解答下吗？谢谢啦！

mouse标
出错了继续
在Data1写上记录号