เรียน อ. ทุกท่านครับ

ปกติผมใช้ Module นี้ ใน Access 2007 ได้ แต่พอเปลี่ยนมาใช้ Access 2013
กลับมี Error ตรง Me (Me.RecordsetClone) ครับ
แก้ได้อย่างไรครับ

Public Function Rec1(a As Variant) As Variant
    Dim rst As DAO.Recordset
    Set rst = Me.RecordsetClone
If rst.RecordCount > 0 Then
rst.MoveLast
rst.MoveFirst
Else: Exit Function
End If
            Do Until rst.EOF
            If rst!ID = a Then
               Rec1 = rst.AbsolutePosition + 1
               Exit Function
              End If
            rst.MoveNext
            Loop
        rst.Close
        Set rst = Nothing
If Me.NewRecord Then GoTo Rec1_Exit
Rec1_Exit:
On Error Resume Next
rst.Close: Set rst = Nothing
Exit Function
End Function