[VB.NET] Classe per la connessione a MySQL

[Loliva Fabio A.]

Salve, ho questo modulo con cui inserisco dei dati nel db.

Dovendo fare altri moduli per inserimento di dati, vorrei esternalizzare la connessione al db in un altra classe.

Cosa dovrei spostare? la funzione call non mi funziona con la prova che ho fatto.

'libreria per usare mysql
Imports MySql.Data.MySqlClient

Public Class fornitoriInserisci

    'parametri di connessione
    Dim ServerString As String = "Server=localhost;User Id=root;Password=password;Database=db"

    'nuova variabile di connessione
    Dim SQLConnection As MySqlConnection = New MySqlConnection


    Private Sub fornitoriInserisci_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'stringa di connessione
        SQLConnection.ConnectionString = ServerString

        Try
            'se la connessioneè kiusa, aprila
            If SQLConnection.State = ConnectionState.Closed Then
                SQLConnection.Open()
                'MsgBox("Connessione con il server effettuata con successo")
            Else
                'altrimenti errore
                SQLConnection.Close()
                MsgBox("Error. Control connection parameter")
            End If

            'stampa messaggio errore
        Catch ex As Exception
            MsgBox(ex.ToString)

        End Try

    End Sub

    Private Sub btnInserisci_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInserisci.Click

        If txtRagioneSociale.Text = String.Empty Then
            MsgBox("Impossibile inserire i dati nell'archivio. Controllare che il campo Ragione Sociale non sia vuoto", MsgBoxStyle.Critical, "Impossibile effettuare l'operazione")

        ElseIf txtCognome.Text = String.Empty Then
            MsgBox("Impossibile inserire i dati nell'archivio. Controllare che il campo Ragione Sociale non sia vuoto", MsgBoxStyle.Critical, "Impossibile effettuare l'operazione")

        Else

            Dim SQLStatement As String = "INSERT INTO anagraficafornitori(ragioneSociale) VALUES('" & txtRagioneSociale.Text & "')"

            inserisciFornitore(SQLStatement)

        End If

    End Sub

    Public Sub inserisciFornitore(ByRef SQLStatement As String)
        Dim cmd As MySqlCommand = New MySqlCommand

        With cmd
            .CommandText = SQLStatement
            .CommandType = CommandType.Text
            .Connection = SQLConnection
            .ExecuteNonQuery()
        End With

        SQLConnection.Close()
        MsgBox(txtRagioneSociale.Text & " aggiunto con successo")
        SQLConnection.Dispose()

    End Sub  

End Class