save on datagridview error

ضعد الكود المستخدم للحفظ والعرض

كود العرض لي ال datagridview وكود ال button_save

الي انريد دالة استدعاء البيانات 

ارجو الرد وشكرا.

KARIMSOFT كتب:

ضعد الكود المستخدم للحفظ والعرض

كود العرض 

   (Dim con As New OleDbConnection(connstring

        ()con.Open
        (Dim command As New OleDbCommand("select * from emplo", con
        Dim adapter As New OleDbDataAdapter
        Dim dt As New DataTable
        adapter.SelectCommand = command
        (adapter.Fill(dt
        DataGridView1.DataSource = dt
        ()adapter.Dispose
        ()command.Dispose
        ()con.Close

كود الحفظ

  (con = New OleDbConnection(connstring
        'cmd.Connection = con
        Try
            Dim I As Integer
            Dim a As Integer
            Dim s As String
            For I = 0 To Me.DataGridView1.Rows.Count - 2
                a = DataGridView1.Rows(I).Cells(0).Value
                s = DataGridView1.Rows(I).Cells(1).Value
                con.Open()
                Dim query As String = "Insert Into emplo (no_emp, name_emp) values @no_emp), (@name_emp)"
                (Dim cmd As New OleDbCommand(query, con
               ( cmd.Parameters.AddWithValue("@no_emp", a
               ( cmd.Parameters.AddWithValue("@name_emp", s

              ()  cmd.ExecuteNonQuery
              ()  con.Close
             ()   cmd.Dispose
            Next I
            MessageBox.Show("Order Successfully Added")

        Catch ex As Exception
            Throw ex
            Beep()
            MessageBox.Show(ex.Message, "خطاء", MessageBoxButtons.OK, MessageBoxIcon.Error)
            DataGridView1.Rows.Clear()

        End Try

اعتقد ان المشكله تحدث في المره الثانية من الحفظ علي ما اعتقد وهذا بسبب اضافة الخفظ الاول علي الثاني

صحيح

يوجد دالة استدعاء ؟؟؟

call في ال button_save

or form1

اذا كانت البيانت ليس لها ارتباط مع جدول اخر يمكن حذفها ثم الحفظ واذا كان لها ارتباط مع جدول اخر يكون عليك التعديل ثم اضافة الجديد من البيانات