Set DB2 = New ADODB.Connection
  DB2.ConnectionString = conn
  DB2.Open
  DB2.CursorLocation = adUseClient
  
  Set rs = New ADODB.Recordset
rs.open "这里有两条SQL语句",DB2, adOpenStatic, adLockOptimistic
具体怎么写???两条分别是1:select   identity(int,1,1)   as   id,小区名称,缴存日期,缴存单位,缴存金额,缴存页数,缴存备注    into   #temp     from    档案缴存情况表 where 小区名称 = '" & xqmc & "'
2:select * from #temp
  在线等