如何把查询转换为一个记录集对象

sjp

各位老师,我的程序如下:

Public Sub qutors()                   
 On Error Resume Next
   Dim db1 As Database
   Dim rs2 As Recordset
   Dim qu1 As QueryDef
   Dim i1 As Integer

Set db1 = CurrentDb()
   Set qu1 = db1.QueryDefs("查询1")
   Set rs2 = qu1.OpenRecordset(dbOpenTable)
i1 = rs2.RecordCount
 db1.Close
   rs2.Close
End Sub

我的目的是想用查询1中的记录,但我用上述方法把查询中的记录符给变量rs2后,记录数i1显示是1,查询1中的实际记录大于1.请教是怎么回事.

直接使用查询中的记录还有别的方法吗?

sgrshh29

public sub qutors()

 on error resume next

   dim db1 as object

   dim rs2 as object

   dim i1 as integer

   set db1 = currentdb()

   set rs2 = db1.openrecordset("查询1")

   rs2.movelast

   i1 = rs2.recordcount

   set rs2 = nothing

   set db1 = nothing

end sub

sjp

谢谢,正确了.