【求助】大哥们，救救我吧！

ljwei692

我在测试时一切正常，可在向服务器上移植时却出现下面提示：
是这段代码出的问题：
With CodeContextObject
   Dim db As DAO.Database
   Dim RegNo As DAO.Recordset
   Set db = Application.CurrentDb
   Set RegNo = db.OpenRecordset("select [invoice register].[invoice reg no] from [invoice register] order by [invoice reg no]")
     With RegNo
        .MoveLast
        lastno = ![Invoice Reg No]
     End With
     'MsgBox lastno
End With
可是换个DNS做数据源时却完全正常，
我是在向SQL数据库升迁数据时出现的这个问题，我都蒙了，不知道我说清楚了没有，头都快炸了，希望高手们能帮帮小弟，不胜感激！谢谢！