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