转换DataReader 为DataTable

 Public Function ConvertRederToTable(ByRef reader As SqlDataReader) As DataTable
        Dim iLoop As Integer
        Dim dt As DataTable
        Dim sTable As DataTable
        Dim oDataRow As DataRow

        dt = New DataTable
        sTable = New DataTable
        sTable = reader.GetSchemaTable

        For iLoop = 0 To sTable.Rows.Count - 1
            dt.Columns.Add(CStr(sTable.Rows(iLoop)("ColumnName")), CType(sTable.Rows(iLoop)("DataType"), System.Type))
        Next
        While reader.Read
            oDataRow = dt.NewRow

            For iLoop = 0 To sTable.Rows.Count - 1
                oDataRow(iLoop) = reader(CStr(sTable.Rows(iLoop)("ColumnName")))
            Next
            dt.Rows.Add(oDataRow)
        End While
        reader.Close()
        sTable.Rows.Clear()
        Return dt
    End Function