ถามเรื่อง For Next ครับ ทำไมเลขมันไม่เพิ่มให้ผมอ่ะ

Private Sub grdCountry_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles grdCountry.CellDoubleClick
        Dim UserSelectRow As Integer = 0
        DIm i As Integer 
        UserSelectRow = grdCountry.CurrentRow.Index
        If IsFind = True Then
For i = 0 To 3
            txtID.Text = CStr(grdCountry.CurrentRow.Cells(i).Value.ToString)
            txtISOCountry.Text = CStr(grdCountry.CurrentRow.Cells(i).Value.ToString)
            txtCountry.Text = CStr(grdCountry.CurrentRow.Cells(i).Value.ToString)
Next
            txtISOCountry.Focus()

            cmdSave.Enabled = False
            cmdEdit.Enabled = True
        End If
    End Sub