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 Until rstCompound.State = adStateClosed 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