你会VC吗?不要搞东搞西,如果SET都不会能否重新考虑一下?.......

解决方案 »

  1.   

    Set 是用来给对象赋值的
    For exampledim pic as stdpicture
    Set pic=picture1.picture
      

  2.   

    将对象引用赋给变量或属性。Set MyObject = Nothing   '释放该对象。
      

  3.   

    创建类的一个实例,为对象赋值。'定义数据库对象变量
    dim MyDataBaseObj as DataBase
    '定义记录集对象变量
    dim MyRecordSetObj as RecordSet
    '创建数据库应用
    set MyDataBaseObj=Dbengine.OpenDataBase(filename)
    '创建记录集
    set MyRecordSetObj=MyDataBaseObj.OpenRecordSet _(TableName,dbopendynaset)