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