Sera a tutti! 
Ho questo codice per l'inserimento e la visualizzazione di alcuni record da un db SqlServer, vorrei sapere come riadattarlo per farlo interagire con MySql:
codice:
Imports System.Data
Imports System.Data.SqlClient
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub cmdSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdSubmit.Click
'Create Connection String
'Initlize all Database Varaibles
Dim DBConn As New SqlConnection("UID=Faraz;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Sample Database;Data Source=FARAZ")
Dim DBCmd As New SqlCommand
Dim DBAdap As New SqlDataAdapter
Dim DS As New DataSet
DBConn.Open()
Try
'Add Insert Statement
DBCmd = New SqlCommand("INSERT INTO UserRecord(UserName, ContactNumber, Address, Country) VALUES (@UserName, @ContactNumber, @Address, @Country)", DBConn)
'Add Database Parameters
DBCmd.Parameters.Add("@UserName", SqlDbType.NVarChar).Value = txtName.Text
DBCmd.Parameters.Add("@ContactNumber", SqlDbType.NChar).Value = txtCNumber.Text
DBCmd.Parameters.Add("@Address", SqlDbType.NVarChar).Value = txtAddress.Text
DBCmd.Parameters.Add("@Country", SqlDbType.NVarChar).Value = ddlCountry.SelectedItem.Text
DBCmd.ExecuteNonQuery()
Response.Write("Your Record is Updated ")
'Set the value of DataAdapter
DBAdap = New SqlDataAdapter("SELECT * FROM UserRecord", DBConn)
'Fill the DataSet
DBAdap.Fill(DS)
'Bind with GridView control and Display the Record
gvShowRecord.DataSource = DS
gvShowRecord.DataBind()
Catch exp As Exception
Response.Write(exp)
End Try
'Close Database connection
'and Dispose Database objects
DBCmd.Dispose()
DBAdap.Dispose()
DBConn.Close()
DBConn = Nothing
End Sub
End Class