一个语句返回多个DataSet

1个语句返回多个DataSet
我执行一个过程，要返回多个记录集，
要怎么操作？

Dim MyAdapter As OleDb.OleDbDataAdapter
MyAdapter = New OleDb.OleDbDataAdapter(SQL, MyConn)
MyAdapter.Fill(MySet)

[解决办法]
返回多个表，在同一个记录集里

如：SQL = "select * from 表1;" &
"select * from 表2;" &
"select * from 表3;"

MySet.Tables(0) '表1
MySet.Tables(1) '表2
MySet.Tables(2) '表3

[解决办法]
给你一个思路，虽然写的是C#代码

C# code

            DataSet ds = new DataSet();//你返回的数据集            DataTable[] dtable = new DataTable[ds.Tables.Count];/定义一个datatable数组            for (int kt = 0; kt < ds.Tables.Count; kt++)//表的个数            {                dtable[kt] = ds.Tables[kt];//分别赋给dtable数组            }