[VB.NET] اضافة بيانات من داتا جريد فيو الي اخري

كود :
For intI As Integer = 0 To DataGridView1.Rows.Count - 1

            Dim AUTO As Integer = FORM2.DataSet1.Tables("TB1").Compute("Max(ID_TB)", "ID_TB >= 0") + "1"

            If Not DataGridView1.Rows(intI).Cells(6).Value = Nothing AndAlso DataGridView1.Rows(intI).Cells(5).Value.ToString.Length >= 11 Then

                Dim cmd As New OleDbCommand("insert into TB1 (ID_TB, NAME_TB,TELEPHON_TB,MON_TB,DATENOW_TB) values ('" & _

                                 AUTO & "','" & DataGridView1.Rows(intI).Cells(1).Value & "','" & DataGridView1.Rows(intI).Cells(6).Value & " - " & DataGridView1.Rows(intI).Cells(5).Value & "','" & DataGridView1.Rows(intI).Cells(7).Value & "','" & "22/4/2015" & _

                                                "')")

                cmd.Connection = FORM2.con

                FORM2.con.Open()

                cmd.ExecuteNonQuery()

                FORM2.con.Close()

                If FORM2.con.State = ConnectionState.Open Then

                    FORM2.con.Close()

                End If



                Validate()

                DataGridView1.Refresh()

                FORM2.BindingSource1.EndEdit()

                FORM2.DataAdapter1.Update(FORM2.DataSet1, "TB1")

                FORM2.DataSet1.AcceptChanges()

                FORM2.conn()

                FORM2.count()

                MsgBox("تم الاضافه والحفظ بنجاح")

            End If



        Next