Dim Cn As ADODB.Connection
Sub Test()
Dim rst As New ADODb.Recordset
Dim cmd As ADODb.Command
Set cmd = New ADODb.Command
cmd.ActiveConnection = Cn
cmd.CommandTimeout = 30
‘複数のSELECT文
cmd.CommandText = “SELECT * FROM TableA; SELECT * FROM TableB ”
cmd.CommandType = adCmdText
‘実行
rst.Open cmd, , adOpenForwardOnly, adLockReadOnly
Set cmd = Nothing
‘最初のSELECT文の結果
Sheet1.Cells(1, 1).CopyFromRecordset rst
‘次のレコードセットへ
Set rst = rst.NextRecordset()
‘2番目のSELECT文の結果
Sheet2.Cells(1, 1).CopyFromRecordset rst
rst.Close
Set rst = Nothing
End Sub