EnsureVisible en ListView

[davchi]

Hola a todos
Tengo un listview con muchos clientes, y al hacer doble click sobre alguno de ellos abro otro form donde puedo actualizar dicho cliente

Ahora lo que necesito es luego de actualizar el cliente y cerrar el form, que quede marcado la linea que edite

Algo del Cod que uso

Form Principal

Código:

Private Sub Form_Load()
    CargarListView_Cliente LV_Cliente, rs
End Sub

Private Sub Editar()
        With form2
            .IdRegistro_Cliente = LV_Cliente.SelectedItem.Text
            .nombre.Text = LV_Cliente.SelectedItem.ListSubItems(1).Text
            .edad.Text = LV_Cliente.SelectedItem.ListSubItems(2).Text
            .Show vbModal
        End With
    End If
End Sub

Private Sub LV_Cliente_DblClick()
    Editar
End Sub

Y en un modulo tengo para cargar el lisview lo siguiente

Código:

Public Sub CargarListView_Cliente(LV_Cliente As ListView, rs As ADODB.Recordset)
On Error GoTo ErrorSub
    LV_Cliente.ListItems.Clear
    If rs.RecordCount > 0 Then
        While Not rs.EOF
            Set objItem = LV_Cliente.ListItems.Add(, , rs(0))
           objItem.SubItems(1) = rs!nombre
           objItem.SubItems(2) = rs!edad
            rs.MoveNext
        Wend
    End If
    Exit Sub
ErrorSub:
    If Err.Number = 94 Then Resume Next
End Sub

y cuando actualizo el segundo form hago:

Código:

Private sub cmdActualizar()
     
    cnn.Execute "UPDATE cliente set nombre = '" & Trim(Text1(1)) & _
                                         "', edad = '" & Trim(Text1(2)) & _
                                         "' where id_cliente = " & IdRegistro_CLIENTE & ""
    
    rs.Requery 1
    
    Call CargarListView_Cliente(form1.LV_Cliente, rs)

    DoEvents
    Unload Me
End sub

Hasta aca perfecto, lo que no sabria es como pasarle al listview cuando actualizo para que cuando lo cargue me quede marcada la linea que edite

Creo que es con EnsureVisible

Alguna idea