Attenzione con questo codice ti connetti ad un Database Access
codice:
<%@ Page Language="VB" %>
<%@ Import NameSpace="System.Data" %>
<%@ Import NameSpace="System.Data.OleDb" %>

<Script runat="server">
	Sub Page_Load(Obj as Object, E as Eventargs)
	
	'Imposta la connessione
	Dim StrConnection as String
	StrConnection = "Provider=Microsoft.Jet.OleDb.4.0;" & _
					"Data Source=Percorso-tuo-file"
	Dim MyConnection as New OleDbConnection(StrConnection)
	
	'Crea l'oggetto DataSet e l'oggetto OleDbDataAdapter
	Dim StrSql as String
	StrSql = "Select * From Tuatabella" 'Istruzione Sql
	
	Dim DS as New DataSet("MyDataSet")
	Dim MyCommand as New OleDbDataAdapter(StrSql, MyConnection)
	
	MyCommand.Fill(DS, "Tabella")
	
        MyDataGrid.datasource=DS.Tables("Tabella").DefaultView

	DataBind()

        End Sub
</Script>
Spiacente ma non conosco la stringa di connessione per un database MySQL

Buona fortuna