ปรึกษาท่านผู้รู้ กดเซฟแล้วทำงานรอบเดียว ไม่วนลูปให้ครับ

If tb_persenbuy.Text = "" Then
            MessageBox.Show("กรุณาป้อนอัตราการปันผลจากยอดซื้อ !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            tb_persenbuy.Focus()
            Exit Sub
        End If

        Dim sqlAUp As String = ""
        Dim i As Integer = 0
        For i = 0 To dgv_divbuy.Rows.Count - 1

            sb.Remove(0, sb.Length)
            sb.Append("UPDATE Member SET Div_buy='" & dgv_divbuy.CurrentRow.Cells(2).Value.ToString & "'")
            sb.Append(" WHERE Member_ID='" & dgv_divbuy.CurrentRow.Cells(0).Value.ToString & "'")
            sqlAUp = sb.ToString()

            cmd = New OleDbCommand
            With cmd
                .CommandText = sqlAUp
                .CommandType = CommandType.Text
                .Connection = conn
                .ExecuteNonQuery()
            End With
        Next
        MessageBox.Show("บันทึกข้อมูลเงินปันผลเรียบร้อยแล้ว!!!", "ผลการทำงาน", MessageBoxButtons.OKCancel, MessageBoxIcon.Information)