About disconnected recordset

Hi all,

I wrote the following code and want to delete the filtered records from the disconnectd recordset. But when "rstb.Delete adAffectGroup" is executed, error occured saying ---> operation is not allowed in this context. What have i done wrong? Could any one please hep me? Thanks!

Dim rsta As ADODB.Recordset

Set rsta = New ADODB.Recordset

Dim rstb As ADODB.Recordset
With rsta
.ActiveConnection = "dsn=Test1"
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockBatchOptimistic
.Open "select * from test1"
Set .ActiveConnection = Nothing
End With

Set rstb = rsta.Clone()

rstb.Filter = "name <> 'z'"

rstb.Delete adAffectGroup

This article mentions that you can't use adAffectGroup without first setting the filter property of the recordset to one of the filter constants: adFilterNone, adFilterPendingRecords, adFilterAffectedRecords, or adFilterFetchRecords. adFilterFetchRecords is probably the choice here.

http://www.ccc.ac.th/iasdocs/aspdocs...p/dameth02.htm
http://www.ccc.ac.th/iasdocs/aspdocs...daprop03_5.htm