Visual Basic.NET - tiro la toalla

Hola

¿Alguien me podría decir porque no funciona este codigo?

Tengo un formulario con un datagridview en el que quiero presentar informacion en tiempo de ejecución y no funciona se queda en blanco

aqui pongo el codigo por si alguien puede verlo

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n As Integer

Dim CadenaSql As String
CadenaSql = "....."

Dim cnn As OleDbConnection
cnn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Gestion Produccion\Gestion Produccion\Gestion Produccion\Produccion.mdb;")

Dim Cmd As New OleDbCommand(CadenaSql, cnn)
Dim rdr As OleDbDataReader
Dim tb As New DataTable

cnn.Open()

rdr = Cmd.ExecuteReader()
tb.Load(rdr)



DataGridView1.DataSource = rdr

DataGridView1.AutoGenerateColumns = True
DataGridView1.Refresh()

n = tb.Rows.Count
End Sub

El data source de un datagridview debe ser un binding source . . .