运行Picture2.Print 时出现“运行时错误 '480'，可能有数据库有关。请多指导，谢谢。

Question

运行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))
请您们多多指教。谢谢。

Answer 1

1.先把出错这一部注释，然后运行。
2.如果真正确定是这句错误的话，那么把后面的字段值去掉填入一下数据
  picture2.print "PRINT"
3.估计2这里不会出错。
4.查找rsdata.Fields(d).Value这个值在数据库里面是不是存在。
5.确定rsdata.Fields(d).Value的数据类型，然后看是不是有空字段存在
6.以此类推找到问题根源。

Answer 2

你在 Win98 下将显示属性改为 16 位色试试。

Answer 3

TO:HELANSHI 
不是你说的问题。TO：of123 
你说的改16色，我周未去试试。那台98系统的机子在家。
谢谢您们的回答！