如何传递recordset参数给过程，为什么传递进去后它的属性便不能访问？100分相送

Question

将过程的参数定义为RecordSet型即可。
注意：要先将DAO引用进来。例：Sub PsDemo()
   Dim objDB  As Database
   Dim objRs  As Recordset
   Set objDB = OpenDatabase("Test.MDB")
   Set objRs = objDB.OpenRecordset("Select * From Test")
   Call PsDemoSub(objRs)
   objRS.Close
   objDB.Close
End SubSub PsDemoSub(AobjRs As Recordset)
   Debug.Print AobjRs.Fields("Name").Value
   AobjRs.Edit
   AobjRs.Fields("Name").Value = "John Smith"
   AobjRs.Update
End Sub