[VB 2005] inserimento record non va

[ylio82]

Dim selectsql As String
selectsql = "INSERT INTO AnagraficaSchede " & _
"(codice, marca, descrizione, importo, giacenza, fornitore) " & _
"VALUES('" & codice_a_barre.Text & "','" & marca.Text & "','" & descrizione.Text & "', " & Importo.Text & ", 0," & fornitore.SelectedValue & ")"
Dim cmd As New OleDbCommand(selectsql, objConnection)
Dim added As Integer
Try
objConnection.Open()
added = cmd.ExecuteNonQuery
lblInformation.Text = added.ToString & "Inserito"
objConnection.Close()
Catch ex As Exception
lblInformation.Text = ex.Message

End Try

Questo è il codice. Non mi dà errori ma il record non viene inserito... Come mai?