支持老大的帖(为什么要限制新人在技术区发帖？)再加一种人

运行Picture2.Print 时出现“运行时错误 '480 '，可能有数据库有关。请多指导，谢谢。
如果定义Qjnum2int=30时在什么系统都能用。
如果定义Qjnum2int=1000时在98的系统下运行不了。会显示
“运行时错误 '480 ':
　定义的应用程序或对象错误”
程序如下：
Picture2.ScaleWidth = 36
Picture2.ScaleHeight = Qjnum2int
Picture2.FontSize = 6.5
Picture2.FillColor = RGB(250, 250, 162)
Picture2.ForeColor = RGB(10, 0, 0)
Picture2.CurrentX = num - 0.85
Picture2.CurrentY = Y + 0.1
Picture2.Print rsdata.Fields(d).Value（在这一步出错的！）
我的数据库是这样打开的。
Set db = OpenDatabase(T_dbAdd(T_NumInt) & T_dbName(T_NumInt), False, False, " ")
Set rsdata = db.OpenRecordset(T_dbRecordset(T_NumInt))
请您们多多指教。谢谢。

唉，我发现别人编的程序有漏洞都回不了啊，不能告诉别人啊。痛苦