Visual Basic - Sacar datos de un ListView

Hola buenas tardes, tengo un caso que no he podido hacer, por favor necesito un poco de ayuda...

Tengo un listview (al cual nombre ListData) cargado con informacion de una tabla (de access) el cual cargue de la siguiente manera:

Sub List_Data()
'Crea la conexion a la BDD de donde se va a extraer la informacion a mostrar en el List
rs.Open "select ID,TAREA,DESCRIPCION,DIASAPROX,FECHAING,STATUS from PLANTRABAJO", cn, adOpenStatic, adLockOptimistic
ListData.ListItems.Add
'Aqui hace el Recordset de la tabla en los registros
While Not rs.EOF
Set Item = ListData.ListItems.Add(, , rs.Fields("ID"))
Item.SubItems(1) = rs.Fields("TAREA")
Item.SubItems(2) = rs.Fields("DESCRIPCION")
Item.SubItems(3) = rs.Fields("DIASAPROX")
Item.SubItems(4) = rs.Fields("FECHAING")
Item.SubItems(5) = rs.Fields("STATUS")
rs.MoveNext
Wend

rs.Close

End Sub

Lo que necesito es que al darle doble click a algun registro / fila seleccionada (que puede ser fila 1 o fila 2, etc., etc.) pues me traiga en variables todos los valores de sus deferentes campos (ID, TAREA, DESCRIPCION, DIASAPROX, FECHAING, STATUS) para poder asignarlos despues a un formulario y asi poder editar su contenido.

Puedes cargar los datos de la fila seleccionada en una matriz dinámica y después usar esos datos donde te convenga:

Private a() As String ' (Ver Nota abajo)

Private Sub ListData_DblClick()
Dim i As Integer
ReDim a(0)
With ListData
a(0) = .selectedItem
For i = 1 To .ColumnHeaders.Count - 1
ReDim Preserve a(UBound(a) + 1)
a(i) = .selectedItem.SubItems(i)
Next i
End With
End Sub

Nota: Si los datos de la matriz los vas a utilizar en otro formulario, declara la variable a() como Public en un módulo .bas:

Public a() As String

Saludos.... Gracias por la informacion!

Yo lo haria así: supongo que es lo que quieres.

Programando el evento "Hacer click sobre la linea del listview"

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)

Dim LineaClick as Integer '(Para saber en que linea se hizo click)

LineaClick = item.index

Variable1 = ListView1.ListItems(LineaClick).SubItems(1)
Variable2= ListView1.ListItems(LineaClick).SubItems(2)
Variable3 = ListView1.ListItems(LineaClick).SubItems(3)

end sub

Espero haberte podido ayudar

Si tienes alguna duda o problema me avisas a mi correo.

Gracias por la respuesta Santiago, me sirvio bastante!!!

Como lo necesitaba para el evento DblClick() lo que hice fue adaptarlo al mismo, pero la programacion quedo exacta y funciona correctamente

De nuevo gracias por la ayuda prestada

Tengo un listview en el cual se cargan mas de 62000registros pero al usar este codigo funciona hasta 32000 si le doy en unregistro que este en una posisicon mayor a este solo toma los datos de registro 32000

Pruebalo declarando la variable LineaClick como Long


Pero lo realmente importante desde el punto de vista operacional es: Quien va a revisar 62000 registros en un listview o en un reporte o en cualquier medio impreso/desplegado

Tenemos que diseñar un poco mas amigable hacia el usuario final