VB.NET将CellSet转为DataTable

1.     ''' <summary>
2.     ''' 将CellSet转为DataTable.
3.     ''' </summary>
4.     ''' <param name="CellSet">CellSet对象.</param>
5.     ''' <returns>DataTable</returns>
6.     ''' <remarks></remarks>
7.     Private Function AdoMdCellSetToDataTable(ByVal CellSet As Microsoft.AnalysisServices.AdomdClient.CellSet) As DataTable
9.         Dim Dt As New DataTable
10.         Dim Dc As New DataColumn
11.         Dim Dr As DataRow = Nothing
12.         Dim I As Int32
13.         Dim ColName As String = &#