Visual Basic

Imports System.Data.SqlClient
Public Class ListViewData
    Public Sub FillListView(ByRef MyListView As ListView, _
                            ByRef myData As SqlDataReader)
        Dim lvwColumn As ColumnHeader
        Dim itmListItem As ListViewItem

        Dim shtCntr As Short

        MyListView.Clear()
        For shtCntr = 0 To myData.FieldCount() - 1
            'If shtCntr = 1 Then Continue For
            lvwColumn = New ColumnHeader()
            lvwColumn.Text = myData.GetName(shtCntr)
            MyListView.Columns.Add(lvwColumn)
            If shtCntr = 0 Then lvwColumn.Width = 125
            If shtCntr = 1 Then lvwColumn.Width = 300
        Next

        Do While myData.Read
            itmListItem = New ListViewItem()
            itmListItem.Text = myData(0)

            For shtCntr = 1 To myData.FieldCount() - 1
                'If shtCntr = 1 Then Continue For
                If myData.IsDBNull(shtCntr) Then
                    itmListItem.SubItems.Add("")
                Else
                    itmListItem.SubItems.Add(myData.GetString(shtCntr))
                End If
            Next shtCntr

            MyListView.Items.Add(itmListItem)
        Loop
    End Sub
End Class

Private Sub Usage_ListItem_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim con As SqlConnection = New SqlConnection(constr)
    Dim query As String

    query = "SELECT ItemCode [Item Code], ItemName[Item Name] FROM IC_ITEMS"

    con.Open()
    Dim comtext As SqlCommand = New SqlCommand()
    comtext.Connection = con

    comtext.CommandText = query
    Dim reader As SqlDataReader
    reader = comtext.ExecuteReader
    Dim testlist As ListViewData = New ListViewData
    testlist.FillListView(ListView1, reader)
    comtext = Nothing
    con.Close()
End Sub