Connecting To Mysql Databse

CODE

Private Sub OpenDatabase(ByVal DatabaseName As String, ByVal TableName As String)
'declare a variable to store our SQL
Dim SQL As String
'declare a new command builder
Dim CB As OleDbCommandBuilder
'declare a variable to store the application path
Dim DbPath As String = System.AppDomain.CurrentDomain.BaseDirectory & "App_Data\"
'this is the connection string to an Access 2003 file uncomment as reguired
Dim ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbPath & DatabaseName & ";Persist Security Info=False"
'this is the connection string for Office 2007
'Dim ConnectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DbPath & DatabaseName & ";Persist Security Info=False"
'opens the connection object based on the connection string
mNewConnection = New OleDbConnection(ConnectionString)
Try
'open the connection
mNewConnection.Open()
Catch ex As Exception
Stop
'DatabaseTable error!!!!!!!!!!!!!!
'the program has crashed probably due to mis typing the database name
'DatabaseTable error!!!!!!!!!!!!!!
End Try
'build up our SQL
SQL = "select * from " & TableName
'connect the data adapter to the connection object using the specified sql
mDataAdapter = New OleDb.OleDbDataAdapter(SQL, mNewConnection)
'initialise the select command of the data adapter
mDataAdapter.SelectCommand = New OleDbCommand(SQL, mNewConnection)
'initialise the command builder to initialis the other commands of the data adapter
CB = New OleDbCommandBuilder(mDataAdapter)
Try
'populate the datatable via the data adapter
mDataAdapter.Fill(mTableData)
Catch ex As Exception
Stop
'DatabaseTable error!!!!!!!!!!!!!!
'the program has crashed probably due to mis typing the table name
'DatabaseTable error!!!!!!!!!!!!!!
End Try
'take a copy of the record structure
mARow = mTableData.NewRow
'close the connection
mNewConnection.Close()
End Sub