将 Set db1 = New ADODB.Recordset 删掉
加:
 dim db1 as new adodb.recordset
试一下

解决方案 »

  1.   

    我一般用:
      dim cn as new adodb.connection
      dim rs as new adodb.recordset
      cn.connectiongstring=""
    cn.open
       set rs=cn.execute(""select 客户名称,项目编号,项目类别,协议金额,负责部门,主审,参审,实际进点时间,出点时间,进展情况,合计收款 from project  where 进展情况 = '已完成'"
    ")
      

  2.   

    同意楼上所言,Windows 2000以后系统自带ADO 2.5,98是2.1版,请从微软下载MDAC 2.5(Microsoft Data Access Component),名称为MDAC_TYP.EXE
      

  3.   

    谢谢!装了MDAC2.5 真的可以了