[VB2010] Problema funzione con query parametrica

[Neo996sps]

Ciao a tutti,

ho un problema tra una funzione e una query parametrica. Sicuramente è un mio errore però non lo riesco a trovare.

Questo il codice funzione:

    Public Function InsertMachine(ByVal id_cliente As Integer, ByVal seriale As String, ByVal descrizione As String, ByVal attivo As String, ByVal fornitore As String) As Boolean
        db.apri()
        Dim sqlCommand As New MySqlCommand
        Dim InserisciMacchina As String
        Try
            'Stringa SQL di inserimento con i parametri
            InserisciMacchina = "INSERT INTO TblMacchine (id, id_cliente, seriale, descrizione, attivo, fornitore) VALUES (@id, @id_cliente, @seriale, @descrizione, @attivo, @fornitore)"
            'Stampo a video la stringa SQL per verificare se è corretta
            MsgBox(InserisciMacchina)
            'Connetto il database MySql 
            sqlCommand.CommandText = InserisciMacchina
            sqlCommand.CommandType = CommandType.Text
            'Setto i parametri dei valori
            sqlCommand.Parameters.AddWithValue("@id", Nothing)
            sqlCommand.Parameters.AddWithValue("@id_cliente", id_cliente)
            sqlCommand.Parameters.AddWithValue("@seriale", seriale)
            sqlCommand.Parameters.AddWithValue("@descrizione", descrizione)
            sqlCommand.Parameters.AddWithValue("@attivo", attivo)
            sqlCommand.Parameters.AddWithValue("@fornitore", fornitore)
            'Eseguo il comando SQL
            sqlCommand.ExecuteNonQuery()
            Return True
        Catch ex As Exception
            Return False
            MsgBox("Error occured: Could not insert record", vbCritical, "Errore")
        End Try

    End Function 

mentre questo è il codice che ho sul tasto salva del mio form

 cli.InsertMachine(frmClienteDettaglio.txtChiaveCliente.Text, txtSeriale.Text, txtDescrizione.Text, chbAttivo.CheckState, txtFornitore.Text) 

dove cli è dichiarato così:

Dim cli As New clsClienti 

e clsClienti è la classe che contiene la mia funzione.

Mi sapete aiutare a trovare l'errore?