¿No logro leer base de datos mysql con odbc con visual basic?

No se en que falla al momento de leer los datos. El código siguiente es el que he intentado------------

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim con As New System.Data.Odbc.OdbcConnection("Driver={MySQL ODBC 5.2a Driver};server=localhost;database=visualmysql; user=root; password=root;option=3")
Dim comando As New System.Data.Odbc.OdbcCommand()
Dim reader As New System.Data.Odbc.OdbcDataReader()
Dim ds As New System.Data.DataSet()
comando.Connection = con
comando.CommandText = "SELECT * FROM alumno"
ds.Tables.Add()
con.Open()
reader = comando.ExecuteReader()
ds.Tables(0).Load(reader)
Me.DataGridView1.DataSource = ds.Tables(0)
End Sub