Problème avec Access

Bonjour,

J'ai un problème au moment de l'update (
ObjetDataAdapter.Update(ObjetDataSet, "Liste")) voir code ci-dessous
Erreur de syntaxe dans l'instruction INSERT INTO...
Il n'y a pas de de string "Insert Into..." puisque j'utilise les objets de
VB NET. Je trouve pas où se situe l'erreur :-(
Si quelqu'un pouvait m'éclairer

Merci de vos réponses

Jacques
strSql = "SELECT * FROM Liste"

'Instancier un objet Commande

ObjetCommand = New OleDbCommand(strSql)

'Instancier un objet Adapter

ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)

'initialiser l'objet Command

ObjetCommand.Connection() = ObjetConnection

'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet

ObjetDataAdapter.Fill(ObjetDataSet, "Liste")

'Mettre dans un Objet DataTable une table du DataSet

ObjetDataTable = ObjetDataSet.Tables("Liste")



ObjetDataRow = ObjetDataSet.Tables("Liste").NewRow



ObjetDataRow.Item("nom") = "objet" 'Me.txtObjet.Text

ObjetDataRow.Item("marque") = "marque" 'Me.txtMarque.Text

ObjetDataRow.Item("modele") = "modele" 'Me.txtModel.Text

ObjetDataRow.Item("numserie") = "123" 'Me.txtNumSerie.Text

ObjetDataRow.Item("particule") = "particularité" 'Me.txtParticul.Text

ObjetDataRow.Item("acheterou") = "Futureshop" 'Me.txtOu.Text

ObjetDataRow.Item("dateachat") = "2006/10/10" 'Me.txtDateAchat.Text

ObjetDataRow.Item("valeur") = "123" ' Me.txtValeur.Text

ObjetDataRow.Item("facture") = -1 'boolFacture

ObjetDataRow.Item("lieu") = "salon" 'Me.txtLieu.Text

ObjetDataRow.Item("description") = "beau" ' Me.txtDescription.Text

ObjetDataRow.Item("image") = "c:\"

ObjetDataRow.Item("assurance") = -1 'boolAssurance



'todo créer chemin de l'image pour enregistrement

ObjetDataSet.Tables("Liste").Rows.Add(ObjetDataRow)

'Pour modifier les valeurs changées dans le DataAdapter

ObjetCommandBuilder = New OleDbCommandBuilder(ObjetDataAdapter)

'Mise à jour du DataAdapter

ObjetDataAdapter.Update(ObjetDataSet, "Liste")