เขียนโค้ดข้างล่างค่ะ มันเกิด error นี้ตอน movenext ค่ะ มันเป็นอะไรค่ะ ลอง compact database ก็ไม่หายค่ะ

Dim rs_item As Recordset
Dim rs_itemmaster As Recordset
Dim sql_item As String

'************ find item which status = new ****************************'
Set rs_item = CurrentDb.OpenRecordset("Select * from item where item = '1'")
While Not rs_item.EOF
'************ add item detail into M_ItemMaster,if exist, update in M_ItemMaster***************
MsgBox rs_item.Fields("item")
Set rs_itemmaster = CurrentDb.OpenRecordset("Select * from M_ItemMaster_A WHERE item = '" & rs_item.Fields("item") & "'")
If rs_itemmaster.RecordCount > 0 Then 'exist - update
rs_itemmaster.Edit
rs_itemmaster.Update
Else ' not exist - add new
rs_itemmaster.AddNew
rs_itemmaster.Fields("item") = rs_item.Fields("item")
rs_itemmaster.Update
End If

'************ Next new item **************************************
rs_item.MoveNext
Wend