呵呵,你是想既执行事务,又返回记录集吧,不要用RDS了,用ADO的RS一样的。Private Sub ForYou()
Dim adoConn as New ADODB.Connection
Dim adoRS as New ADODB.Recordset adoConn.open "xxxxxxx"
 adoRS.open " Begin Tran Set NoCount On" & _
            " You Code Go Here " & _
            " Set NoCount Off Commit Tran " & _
            " Select * from Server.DB.Owner.Object ",adoConn
 adoRS.Close
 Set adoRS=Nothing
 adoConn.Close
 Set adoConn=NothingEnd Sub其实你不使用Set NoCount Off/On 也可以通过 adoRS的NextRecordSet取得
你在批处理中的各个记录集,但是MS的ADO对一个CONNECTION对象的返回记录集
个数有限制。