PB d'ajout de données avec Access

Je commence à désepérer....Je veux simplement faire un ajout de données dans une base de données Access par l'intermédiaire du code suivant :


Dim

Connection AsNew OleDb.OleDbConnection()Connection.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & "data source= " & Application.StartupPath & "\" & "DBEmploiDuTemps.mdb;"

Dim DtSet AsNew DataSet()

Dim NewLigne As DataRow


'definition du DataAdapter

Dim AdapTContact AsNew OleDb.OleDbDataAdapter("select * from LieuTravail", Connection)

AdapTContact.Fill(DtSet,

"LieuTravail")
NewLigne = DtSet.Tables(

"LieuTravail").NewRow
NewLigne(

"ID_Lieu") = 5
NewLigne(

"Lieu") = "essai"
DtSet.Tables(

"LieuTravail").Rows.Add(NewLigne)

Dim CmdBuild As OleDbCommandBuilder
Connection.Open()

CmdBuild =

New OleDb.OleDbCommandBuilder(AdapTContact)
AdapTContact.UpdateCommand = CmdBuild.GetUpdateCommand()

AdapTContact.Update(DtSet,

"LieuTravail")
Connection.Close()




Il n'y a aucune erreur mais quand je regarde dans la base, aucun ajout

AIDEZ MOI SVP

en plus, j'ai téléchargé un programme qui effectuait une opération sur une base de données et comme par hasard ça marche. J'ai copié le code et je l'ai appliqué à ma base mais ca ne matche pas:oops:

Bonjour.

Aucun probléme dans le code, je l'ai testé, ça marche nickel.

Es-tu sûr de regarder la bonne base ? Regarde un peu ce que donne ton "data source= " & Application.StartupPath & "\" & "DBEmploiDuTemps.mdb;"

Nota : Penses à utiliser les balises [Code] ça aide les répondeurs potentiels ;-)

Cdt.

Oui c'est ça...Pourtant j'ai vérifié plusieur fois.
En fait le programme me copiait automatiquement ma base dans un sous repertoire "Debug". J'ai donc spécifié le chemin vers ma base...
Encore une erreur à la con:oops:

Merci beaucoup