Hocam sizin yöntemle yapmadım da, şöyle bir yöntemle çalıştırdım... Belki işinize yarar
Imports MySql.Data.MySqlClient
Imports System.Data
Partial Class _Default
Inherits System.Web.UI.Page
Dim baglan As MySqlConnection
Dim adap As MySqlDataAdapter
Sub Baglanti_Kur()
baglan = New MySqlConnection("Server=IP_NO;Database=veritabani_adi;Uid=kullaniciAdi;Pwd=Sifre;")
baglan.Open()
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Baglanti_Kur()
adap = New MySqlDataAdapter("select * from tbl_duyuru", baglan)
Dim dt As New DataTable
dt = New DataTable
adap.Fill(dt)
baglan.Close()
GridView1.DataSource = dt
GridView1.DataBind()
End Sub
End Class