Mover renglon activo en DataGridView manual

[Novosky]

Buenas tardes gente de Foros del Web, yo iniciando en el mundo de Visual Basic NET, me he atorado en lo siguiente ojala y me puedan echar la mano:
Estoy haciendo uso de un DataGridView en el cual voy agregando productos que vienen de un TextBox y un Button hasta acá hay la llevo lo que ahora ya no puedo es hacer avanzar el indicador del DataGridView para despues hacer un cambio en una celda del renglón que se supone es el último porque el ingreso de los productos lo hago pero el indicador se queda en el primer renglón, a continuación podre mi código que tengo y ojala me halla dado a explicar, un gran saludo.

Código:

Private Sub btnAgregar_Click(sender As Object, e As EventArgs) Handles btnAgregar.Click
        actualizar()
        txtProductos.Text = ""        
    End Sub
Private Sub actualizar()
        Static cont As Integer
        Dim iBusqueda As Integer
        Dim encontroid As Integer
        encontroid = 0
        iBusqueda = 0
        If YaVendi = True Then
            cont = 0
            YaVendi = False
        End If
        conectar()
        If cont < 15 Then
            Dim nota As String = "select idproducto, nombre, preciop, existencia from productos03 where idproducto = '" & txtProductos.Text & "' "
            Dim Adap As New SqlCommand(nota, conex)
            Dim DR As SqlDataReader
            DR = Adap.ExecuteReader
            While iBusqueda < cont And encontroid = 0
                If txtProductos.Text = DgVenta.Item(0, iBusqueda).Value Then
                    DgVenta.Item(3, iBusqueda).Value = DgVenta.Item(3, iBusqueda).Value + 1
                    encontroid = 1
                End If
                iBusqueda = iBusqueda + 1
            End While
            If encontroid = 0 Then
                While DR.Read
                    DgVenta.Item(0, cont).Value = DR("idproducto")
                    DgVenta.Item(1, cont).Value = DR("nombre")
                    DgVenta.Item(2, cont).Value = DR("preciop")
                    DgVenta.Item(3, cont).Value = 1
                    DgVenta.Item(4, cont).Value = DR("existencia")
                    DgVenta.Item(5, cont).Value = DR("preciop")
                End While
                cont = cont + 1
            End If
            conex.Close()
        End If
    End Sub
Private Sub DgVenta_KeyPress(sender As Object, e As KeyPressEventArgs) Handles DgVenta.KeyPress
        If ((AscW(e.KeyChar))) = 122 Then
            DgVenta.Item(4, DgVenta.CurrentCell.RowIndex).Value = 777
        End If

    End Sub