将MySql记录集放入vb.net中的多维数组

Question

我正在从VBA切换到VB.net，我需要将SQL查询中的数据放入多维数组中，但我没有找到像“.getrows”这样的命令来获取所有数据并将其全部放入阵列。

我编写了一个似乎有效的代码（我将数据放入数组数组中），但我不认为这是一个很好的代码。

请建议我如何改进它。

Function mQuery(ByVal CnStr$, ByVal SqlStr$) As Object
    Dim mData() As Object
    Using ds As DataSet = MySqlHelper.ExecuteDataset(CnStr, SqlStr)
        ReDim mData(ds.Tables(0).Rows.Count - 1)
        Dim RCount% = 0
        Dim mDataTmp() As Object
        For Each mRow As DataRowView In ds.Tables(0).DefaultView
            Erase mDataTmp
            mDataTmp = mRow.Row.ItemArray
            mData(RCount) = mDataTmp
            RCount += 1
        Next
    End Using

    Return mData

End Function