Problème de connections(BD;Visual basic)!!

Bonjour,


Le problème consiste à faire stocké les données entrés par l'utilisateur dans l'interface graphique vers une base de données Access(le stockage ne se fait que si l'utilisateur appui
sur le bouton "enregistrer")

J'attend vos réponses avec impatience!


voila mon essai:



Imports System.Data.DataSet

Public Class form1
Inherits System.Windows.Forms.Form

Dim dtbase As New DataSet("dtbase ")
Dim table1 As New DataTable("table1")


Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
table1= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\christelle\Documents\basededonnées2.accdb;Persist Security Info=False"
dtbase = New ADODB.Connection
rst = New ADODB.Recordset
dtBase.Open(chaine)
Me.Refresh()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim cn As New OleDb.OleDbConnection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:\Users\christelle\Documents\basededonnées2;"

Dim dr As DataRow = dtbase.Tables("Table1").NewRow()
dr("jour") = TextBox2.Text
dr("solde") = TextBox1.Text
dr("element") = ListBox1.Text
dr("Prix d'achat") = TextBox3.Text
dtbase.Tables("table1").Rows.Add(dr)





End Sub
End Class