NextRecordset Method Example (VB)
This example uses the NextRecordset method to view the data in a recordset that uses a compound command statement made up of three separate SELECT statements.

'BeginNextRecordsetVB
Public Sub NextRecordsetX()

   Dim rstCompound As ADODB.Recordset
   Dim strCnn As String
   Dim intCount As Integer

   ' Open compound recordset.
      strCnn =  "Provider=sqloledb;"  & _
       "Data Source=MyServer;Initial Catalog=Pubs;User Id=sa;Password=; " 
   
   Set rstCompound = New ADODB.Recordset
   rstCompound.Open  "SELECT * FROM Authors; "  & _
       "SELECT * FROM stores; "  & _
       "SELECT * FROM jobs" , strCnn, , , adCmdText

   ' Display results from each SELECT statement.
   intCount = 1
   Do While Not (rstCompound Is Nothing)
      Debug.Print "Contents of recordset #" & intCount
      Do While Not rstCompound.EOF
         Debug.Print , rstCompound.fields(0), _
            rstCompound.fields(1)
         rstCompound.MoveNext
      Loop
   
      Set rstCompound = rstCompound.NextRecordset
      intCount = intCount + 1
   Loop
   
End Sub
'EndNextRecordsetVB

                         ВНИМАТЕЛЬНО ЧИТАЙ ХЕЛП!!!
                      ПРАВИЛЬНО ЗАДАВАТЬ ВОПРОСЫ!!!