اسئلة حيرتني في ازرار الحفظ

السلام عليكم اساتذتي الاجلاء

لدي عدة اسئلة

1. عندي قاعدة تحوي ملايين من الاسماء وعملت كود التعديل لكن عند التنفيذ يتاخر كثيرا بدون جدوى وقد عملت ايضا كود التعديل بالبروسيدر ونفس الشئ وكود التعديل كما يلي

Dim sql As String = "select * from person where PER_ID =  " & Me.idtext.Text & " "
        Dim Adapter As New SqlDataAdapter(sql, conn)
        Myds.Clear()
        Adapter.Fill(Myds, "person")
        conn.Close()
        Dim MyPosition As Integer = Me.BindingContext(Myds, "person").Position()
        Dim PER_ID As String = Myds.Tables("person").Rows(MyPosition).Item("PER_ID")
        Myds.Tables("person").Rows(MyPosition).Item("PER_VRTYPE") = "CHANGE"
        Myds.Tables("person").Rows(MyPosition).Item("PER_FIRST") = Me.firsttext.Text()
        Myds.Tables("person").Rows(MyPosition).Item("PER_FATHER") = Me.lasttext.Text()
        Myds.Tables("person").Rows(MyPosition).Item("PER_GRAND") = Me.grantext.Text()
        Dim sqlInsert As String = "update person set PER_FIRST=@PER_FIRST,PER_VRTYPE = @PER_VRTYPE ,PER_FATHER=@PER_FATHER,PER_GRAND=@PER_GRAND where PER_ID=@PER_ID"
        Adapter.UpdateCommand = New SqlCommand(sqlInsert, conn)
        Adapter.UpdateCommand.Parameters.Clear()
        Adapter.UpdateCommand.Parameters.AddWithValue("@PER_ID", Me.idtext.Text)
        Adapter.UpdateCommand.Parameters.AddWithValue("@PER_VRTYPE", "CHANGE")
        Adapter.UpdateCommand.Parameters.AddWithValue("@PER_FIRST", Me.firsttext.Text)
        Adapter.UpdateCommand.Parameters.AddWithValue("@PER_FATHER", Me.lasttext.Text)
        Adapter.UpdateCommand.Parameters.AddWithValue("@PER_GRAND", Me.grantext.Text)
        Me.BindingContext(Myds, "person").EndCurrentEdit()
        Adapter.Update(Myds, "person")
        MsgBox("تم تحديث الناخب الحالي", MsgBoxStyle.Information)
    End Sub

2. عندي داتا كرد وعملت بجانب كل record زر حفظ لكن واجهتني مشكلة هي عند ترك خلية في الزر الذي اريد ان احفظه تظهر رسالة عدم الحفظ ولكن الكود يعمل في حالة ملاء جميع خلايا السجل والكود هو

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Try
        For Each row As DataGridViewRow In DataGridView1.Rows
            If Not (row.Cells(0).Value Is Nothing) Then
                If row.Cells(0).Value = True Then
                    Dim emp _name As String = row.Cells(1).Value.ToString
                    Dim emp _fam As String = row.Cells(2).Value.ToString
                    Dim emp _idbi As String = row.Cells(3).Value.ToString                    
                    Dim sql As String = "select * from emp"
                    Dim Adapter As New SqlDataAdapter(sql, conn)
                    Myds.Clear()
                    Adapter.Fill(Myds, " emp ")
                    Dim dr As DataRow = Myds.Tables("emp ").NewRow
                    dr.Item("emp _name ") = emp _name
                    dr.Item("emp _fam ") = emp _fam.ToString()
                    dr.Item("emp _idbi ") = emp _idbi.ToString()                    
                    Myds.Tables("emp ").Rows.Add(dr)
                    Dim sqlInsert As String = "insert into emp (emp _name, emp _fam, emp _idbi)values (@ emp _name,@ emp _fam,@ emp _idbi)"
                    Dim Insert As New SqlCommand(sqlInsert, conn)
                    Insert.CommandType = CommandType.Text
                    Insert.Parameters.AddWithValue("@emp _name ", emp _name)
                    Insert.Parameters.AddWithValue("@emp _fam ", emp _fam)
                    Insert.Parameters.AddWithValue("@emp _idbi ", emp _idbi)                    
                    Adapter.InsertCommand = Insert
                    Me.BindingContext(Myds, " emp ").EndCurrentEdit()
                    Adapter.Update(Myds, " emp ")
                End If
            End If
        Next
        MsgBox("Save New Row In Database", MsgBoxStyle.Information)

وانا بامس الحاجة اليها جزاكم الله خيرا