[VB2010] Problema funzione con query parametrica

[Neo996sps]

l'avevo detto che era colpa mia... Per i posteri:

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.Connection = db.conn
            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