اريد كود الإضافة والحفظ من Datagridview إلى قاعدة أكسس

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

Try

con.Open()

Dim ole As New OleDbCommand

Dim i As Integer

For i = 0 To DataGridView1.Rows.Count - 2

Dim row As DataGridViewRow = DataGridView1.Rows(i)

Dim t As DataGridViewComboBoxCell = row.Cells(0)

Dim s As DataGridViewComboBoxCell = row.Cells(1)

Dim m As DataGridViewTextBoxCell = row.Cells(2)

Dim sql As String = "insert into TOT (T,S,M)" & _

" values('" & t.Value & "','" & s.Value & "','" & m.Value & "')"

ole.Connection = con

ole.CommandText = sql

ole.ExecuteNonQuery()

Next

MsgBox("تمت الاضافة")

da.Fill(dataset1, "TOP")

DataGridView1.Rows.Clear()

Catch ex As Exception

MsgBox("لم تتم الاضافة")

Finally

con.Close()

End Try

End Sub

Imports System.Data

Imports System.Data.OleDb

Public Class Form1 'تضعها في كود الفئة

Dim conn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _

Application.StartupPath & "\POP.mdb"

Dim con As New OleDbConnection(conn)

Dim sqls As String = "select * from TOT"

Dim dataset1 As New DataSet

Dim da As New OleDbDataAdapter(sqls, con)