MySQL - Realizar Backup en VB .NET de Mysql

Private Function CopiaDeSeguridad() As Boolean

        Dim Coneccion As New SqlConnectionStringBuilder("server=" & My.Settings.MachineName _

                                                        & "" & My.Settings.InstanciaSQL & ";database=" _

                                                        & My.Settings.DB & ";uid=" & My.Settings.UsuarioDB _

                                                        & ";pwd=" & My.Settings.PasswordDB)

        'Coneccion.IntegratedSecurity = True

        If txtDirectorio.Text.Length <> 4 Then

            txtDirectorio.Text = txtDirectorio.Text + "" + txtNombre.Text + ".bak"

        Else

            txtDirectorio.Text = txtDirectorio.Text + txtNombre.Text + ".bak"

        End If

        Using con As New SqlConnection(Coneccion.ConnectionString)

            Try

                con.Open()

                Dim sCmd As New StringBuilder

                sCmd.Append("BACKUP DATABASE [" + txtBaseDatos.Text + "] TO  DISK = N'" + txtDirectorio.Text + "' WITH NOFORMAT, NOINIT" + ", ")

                sCmd.Append("Name = N'" + txtBaseDatos.Text + "', SKIP, NOREWIND, NOUNLOAD,  STATS = 10")

                Dim cmd As New SqlCommand(sCmd.ToString, con)

                cmd.ExecuteNonQuery()

                CopiaDeSeguridad = True

            Catch ex As Exception

                CopiaDeSeguridad = False

                MessageBox.Show(ex.Message)

            Finally

                con.Close()

            End Try

        End Using

    End Function