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