К началу
repeat MyADODataSet.Recordset := RecordSetMy; // В цикле получим все возвращенные табицы RecordSetMy := RecordSetMy.NextRecordset(RecordCount); until RecordSetMy = nil;