Visual Basic - problema

holas quiero mostrar el contenido de un registro de 4 campos en un listview y no se como hacerlo podrian ayudarme con esto

Buenas, para crear las cabeceras:

'
Lsv1.ColumnHeaders.Add , , "Columna 1", Lsv1.Width / 4
Lsv1.ColumnHeaders.Add , , "Columna 2", Lsv1.Width / 4
Lsv1.ColumnHeaders.Add , , "Columna 3", Lsv1.Width / 4
Lsv1.ColumnHeaders.Add , , "Columna 4", Lsv1.Width / 4 - 100
Lsv1.View = lvwReport

' y para llenar el listview

Lsv1.ListItems.Add (1), , "Dato1"
Lsv1.ListItems(1).SubItems(1) = "Dato 2"
Lsv1.ListItems(1).SubItems(2) = "Dato 3"
Lsv1.ListItems(1).SubItems(3) = "Dato 4"

Saludos

hola gracias pero sabes funciona pero solo baja el codigo a la siguiente fila y los demas campos(nombre,apellido,etc) reemplaza al de la primera fila

osea ingreso codigo 1, nombre carlos,apellido perez grabo y pasa al list view
luego ingreso codigo 2,nombre maria,apellido torres grabo y el codigo pasa a la siguiente fila pero el nombre y apellido sale en la fila del codigo 1

ayudame con esto
gracias

sabes ahora cuando grabo un segundo registro pasa a hacer el primero,grabo el codigo 1 y se muestra, luego grabo el codigo 2 y se muestra como primer registro grabado y el codigo 1 pasa a verse como el segundo registro

que nos faltaria please

me llego la notificacion al correo pero no la respuesta al foro
please help me

Buenas,

para llenar el listView:
Lsv1.ListItems.Add (1), , "Dato1" el (1)indica la posicion donde metemos el dato
Lsv1.ListItems(1).SubItems(1) = "Dato 2" el primer (1) indica la posicion del item primario y el segundo(1) el subitem donde metemos el dato
Lsv1.ListItems(1).SubItems(2) = "Dato 3"
Lsv1.ListItems(1).SubItems(3) = "Dato 4"

' de la forma anterior cada dato que vas introduciento lo metera siempre en la primera linea

' para comprender mejor el funcionamiento, mirate este ciclo.
For i = 1 To 10
Lsv1.ListItems.Add (i), , "dato " & i
Lsv1.ListItems(i).SubItems(1) = "Dato 1" & i
Lsv1.ListItems(i).SubItems(2) = "Dato 2" & i
Lsv1.ListItems(i).SubItems(3) = "Dato 3" & i
Next
' si despues ago esto

Lsv1.ListItems(1).SubItems(3) = "Otro Dato"

' cambiare el texto que esta en la columna 4 del 1º item

'Saludos

hola sabes aun no funciona, se repiten los datos que grabo, te comento que para esto uso un recorset
y para hacer el for ahi es donde no se como ponerlo
saludos