使用DataReader填充DataTable

Public Function Fill()Function Fill(ByVal dataReader As SqlDataReader) As DataTable 
 Dim dataTable As DataTable 
 Dim dataRow As DataRow 
 dataTable = New DataTable 
 Dim schemaTable As DataTable = dataReader.GetSchemaTable 
 For Each myRow As DataRow In schemaTable.Rows 
   For Each myCol As DataColumn In schemaTable.Columns 
     dataTable.Columns.Add(myCol.ColumnName, myCol.DataType) 
   Next 
 Next 
 While dataReader.Read 
   dataRow = dataTable.NewRow 
   For Each myRow As DataRow In schemaTable.Rows 
     For Each myCol As DataColumn In schemaTable.Columns 
       dataRow(myCol.ColumnName) = dataReader(myCol.ColumnName) 
     Next 
   Next 
   dataTable.Rows.Add(dataRow) 
 End While 
 dataReader.Close 
 schemaTable.Rows.Clear 
 Return dataTable 
End Function