主题：[请教] 提醒新纪录代码那里有错？

以下代码用于单击登陆按钮后，判断上次登陆后至今增加的新纪录，调试到messagebox.Show(n)这句，程序就挂了（之前的语句没问题），也没有任何提示，只能强退，不知何故，请指教！

Dim n As Integer

n = GetConfigValue("最后_Identify", "")

Dim id As Integer = DataTables("收款明细记录").Compute("Max(_Identify)")

SaveConfigValue("最新_Identify", id)

Dim m As Integer

m = id-n      

messagebox.Show(n)         

messagebox.Show(id)

If m > 0 Then

    Forms("收付款提醒弹窗").Open

End If