Populate Data from DataReader to DataTable

Here's a trick to populate data from DataReader to DataTable :

Imports System.Data.OracleClient

Dim conn = New OracleConnection("Data Source=PROD;Unicode=True")
Dim cmd As New OracleCommand()
Dim dr As OracleDataReader
Dim dt As New DataTable

conn.Open()
cmd.Connection = conn
cmd.CommandText = "select * from customer"
dr = cmd.ExecuteReader
dt.Load(dr)
datagridview1.datasource = dt

**Note : You can adjust the connection string as per your need.