NextRecordset virker kun delvist

Hej
Jeg har et regneark hvor jeg importer data fra MS SQL 2005
via. en stored procedure resultatet er 3 recordset, men jeg får fejl når nr 3 skal ligges ind!


For i = 0 To rst.Fields.Count - 1
Worksheets("Data").Cells(3, i + 2).Value = rst.Fields(i).Name

Next i


    Worksheets("Data").Range("B4").CopyFromRecordset rst
    rst.NextRecordset

For i = 0 To rst.Fields.Count - 1
Worksheets("Data").Cells(23, i + 2).Value = rst.Fields(i).Name

Next i
i = 0

    Worksheets("Data").Range("B24").CopyFromRecordset rst
    rst.NextRecordset

For i = 0 To rst.Fields.Count - 1
Worksheets("Data").Cells(43, i + 2).Value = rst.Fields(i).Name

Next i
Worksheets("Data").Range("B44").CopyFromRecordset rst  'Her fejler den

Mystisk at den ligger 2 ind men ikke den sidste og der kommer 3 har checket udtræk i profiler og kørt den i mmc.

Fejl meddelse..
runtime error 3704
Operation not allowed when the object is closed.

Er der nogen der kan hjælpe?
På forhånd tak.