Problème d'ajout, de modification et de suppression BD Access

Bonjour, j'essaye de faire un logiciel en vb.net qui se sert de plusieurs bd access en même temps. Je me suis servi de ce tuto http://www.vbfrance.com/tutorial.aspx?id=281 qui est très bien. J'ai nommé les déclarations de différentes façons. Quand j'essaye d'ajouter un enregistrement dans une bd, il me met une erreur à cette ligne :
lec_dta.Update(lec_dts, "Leçons")
Pour l'ajout, c'est erreur de syntaxe INSERT INTO, pour la modif c'est Erreur de Syntaxe UPDATE. Comment faire pour éviter ce problème ?

Merci d'avance

 Dri60

Salut,

Faudrait nous montrer la syntaxe de tes requêtes....

A+
Exploreur

 Linux a un noyau, Windows un pépin

Ok

Imports

System

Imports

System.Data

Imports

System.Data.OleDb

Imports

Microsoft.VisualBasic

Public

Class Classe

Public lec_cnx As OleDbConnection

Public lec_cmd As OleDbCommand

Public lec_dta As OleDbDataAdapter

Public lec_dts AsNew DataSet

Public lec_sql AsString

Public lec_dtt As DataTable

Public lec_dtr As DataRow

Public lec_rownum AsInteger

Public lec_cnxstr AsString

Public lec_cmdb As OleDbCommandBuilder

Sub Leçons_Load()

Classe = Choix_classe.ComboBox1.Text

lec_cnxstr =

"provider = microsoft.jet.oledb.4.0 ; data source = " & Application.StartupPath & "\Leçons\" & Classe & ".mdb;"

lec_cnx =

New OleDbConnection

lec_cnx.ConnectionString = lec_cnxstr

lec_cnx.Open()

lec_sql =

"select Leçons.* from Leçons"

lec_cmd =

New OleDbCommand(lec_sql)

lec_dta =

New OleDbDataAdapter(lec_cmd)

lec_cmd.Connection() = lec_cnx

lec_dta.Fill(lec_dts,

"Leçons")

lec_dtt = lec_dts.Tables(

"Leçons")

If Form1.ListBox2.Text = ""Then

Form1.ListBox2.DataSource = lec_dtt

Form1.ListBox2.DisplayMember =

"Leçons"

Form1.ListBox2.ValueMember =

"Leçons"

EndIf

EndSub

Sub Leçons_Add()

If add_leçon.TextBox1.Text = ""Or add_leçon.DateTimePicker1.Text = ""Or add_leçon.TextBox2.Text = ""Then

MsgBox(

"Un des Champs est Vide !", MsgBoxStyle.Exclamation)

ExitSub

EndIf

lec_dtr = lec_dts.Tables(

"Leçons").NewRow

lec_dtr(

"Leçons") = add_leçon.TextBox1.Text

lec_dtr(

"Date") = add_leçon.DateTimePicker1.Text

lec_dtr(

"Infos") = add_leçon.TextBox2.Text

lec_dts.Tables(

"Leçons").Rows.Add(lec_dtr)

lec_cmdb =

New OleDbCommandBuilder(lec_dta)

lec_dta.Update(lec_dts,

"Leçons")

lec_dts.Clear()

lec_dta.Fill(lec_dts,

"Leçons")

lec_dtt = lec_dts.Tables(

"Leçons")

MsgBox(

"La Leçon " & add_leçon.TextBox1.Text & " a été ajoutée avec Succès", MsgBoxStyle.Information)

add_leçon.Close()

EndSubMerci pour votre réponse

 Dri60