Llenar listview con datos del SQLServer

hola les presento un codigo que lo que hace es el resultado de un SqlDataReader cargar el una Listview desde Visual Studo .... la consulta de SQLServer puede tener varios campos selecionados y la funcion llenara las columnas de la listview con el nombre de los campos selecionados los llenara solito.....antes de presentar el codigo en la listview hay que hacer los siguiente.......en las propiedades se cambia lo siguiente
View=Details
FullRowSelect=true
Gridlines=True
una ves hecho esto se pone el codigo que tiene como valor 1 listview que va a llenar la lista y luego un SqlDataReader que es el resultado de de la consulta


Public Sub CargarLisView(ByVal lvLista As System.Windows.Forms.ListView, ByVal Registro As SqlClient.SqlDataReader)
Try
Dim Columnas As Integer
Dim ItemProducto As System.Windows.Forms.ListViewItem
Dim I As Integer
lvLista.Columns.Clear()
Columnas = Registro.FieldCount
For I = 0 To Columnas - 1
lvLista.Columns.Add(Registro.GetName(I), 100, 0)
Next
lvLista.Items.Clear()
Do While Registro.Read
ItemProducto = lvLista.Items.Add(Registro(0))
For I = 1 To Columnas - 1
If TypeOf (Registro(I)) Is Date Then
ItemProducto.SubItems.Add(CStr(Registro(I)))
Else
If TypeOf (Registro(I)) Is String Then
ItemProducto.SubItems.Add(Registro(I))
Else
ItemProducto.SubItems.Add(Str(Registro(I)))
End If
End If
Next
Loop
Registro.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

Preguntas dejen su comentario que podre contestar a sus preguntas o dudas
Salu2
Victor Altamirano