Public Class Form1

'declaration des variables

Dim abs As Double 'variable representant l'abscisse des couples

Dim memoire As New DataSet() 'creation du dataset

Dim NewLigne As DataRow

Dim cnx As OleDbConnection

Dim base As String

Dim liaison As New OleDbDataAdapter

Dim BdProvider = "Microsoft.Jet.Oledb.4.0"

Dim BdPathDirectory = "C:\Documents and Settings\remi\Mes documents\architecture navale\bmauric\soft\test\Copie (3) de toto.mauric"

'"""""""""""""""""""""""""""""""""""""""""

'Recupération des couples dans la base de donnée

'"""""""""""""""""""""""""""""""""""""""""

Private Sub affichageDBCouple(ByVal requete As String, ByVal table As String, ByVal DataGridViewName As DataGridView)

Try

base = "provider=" & BdProvider & "; " & _

"data source= " & BdPathDirectory

'declaration de la connection

cnx = New OleDbConnection(base)

cnx.Open() 'ouverture de la connection

liaison = New OleDbDataAdapter(requete, base)

'charge la table en mémoire

Dim vue As New DataView(memoire.Tables(table))

Catch ex As Exception

MessageBox.Show(ex.Message, Me.Text)

End Try

End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

affichageDBCouple("SELECT Couple.[Nom couple], Couple.Abscisse FROM Couple", "Couple", DataGridView1)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim CmdBuild As OleDbCommandBuilder

CmdBuild = New OleDb.OleDbCommandBuilder(liaison)

NewLigne = memoire.Tables("Couple").NewRow

NewLigne(0) = "toto"

' Création de la nouvelle ligne

memoire.Tables("Couple").Rows.Add(NewLigne)

liaison = New OleDbDataAdapter("SELECT Couple.[Nom couple], Couple.Abscisse FROM Couple", base)

liaison.Update(memoire, "Couple")

End Sub

End Class

Pouvez vous m'aider sur cette erreur qui se porte peut être sur ma requete? (pourtant elle est issue du mode ligne d'access ...et j'arrive bien a  recupérer les données...)

En esperant ne pas trop vous déranger,
cordialement,