一个语句返回多个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数组
            }