ADO Recordset problem

[PilgrimPete]

I assume that COMPUTE returns the results as a separate recordset. Have you tried NextRecordset?
Something like this:

Dim rst As Recordset
    Set rst = New Recordset
    rst.Open ("....")
    'do stuff, then get the next recordset
    Set rst = rst.NextRecordset