Visual Basic

Dim clhChildActivities As ColumnHeader
With lvwFoundResult.ColumnHeaders
' "eQµaHkumar";"kabrieqäT";"eQµaHGñkTTYlxusRtÚv";"skmµPaB"
    Set clhChildActivities = .Add(1, , "eQµaHkumar")
    Set clhChildActivities = .Add(2, , "kabrieqäT")
    Set clhChildActivities = .Add(3, , "eQµaHGñkTTYlxusRtÚv")
    Set clhChildActivities = .Add(4, , "skmµPaB")
    Set clhChildActivities = .Add(5, , "epSg²")
End With

Do While .EOF = False
    DoEvents
    Set ltmChildActivities = lvwFoundResult.ListItems.Add(, , Trim(.Fields(0).Value))
    For intSubItemRec = 1 To .Fields.Count - 1
        DoEvents
        ltmChildActivities.SubItems(intSubItemRec) = _
        Trim(.Fields(intSubItemRec).Value)
    Next
    .MoveNext
    pgbRecFound.Value = pgbRecFound.Value + 1
Loop

' ******************************************************
		'
		' Pass the field value to the column header 
		' of list view.
		Dim i As Integer		' Total number of column.
		For i = 0 To myReader.FieldCount - 1
			lvwCustomers.Columns.Add(myReader.GetName(i).ToString, _
			100, HorizontalAlignment.Center)
		Next
		'
		' Pass the field value to the column header is success.
		' 
		' *****************************************************

'Dim str(5) As String
'Dim itm As ListViewItem

'str(0) = "Rob Machy"
'str(1) = "100 North Ave"
'str(2) = "Business Manager"
'str(3) = "89,000"
'str(4) = "Development"

'itm = New ListViewItem(str)
'lvwCustomers.Items.Add(itm)

' Use Read method of the OleDbDataReader to retrieve data
		' use it to GetString method to display data in list view.
		Dim ltm As ListViewItem
		Dim str(myReader.FieldCount) As String
		Dim j As Integer

		While myReader.Read()
			'txtData.Text = txtData.Text & myReader.GetString(0) & _
			'ControlChars.CrLf
			For j = 1 To myReader.FieldCount
				Try
					ltm = New ListViewItem(myReader.GetString(j).ToString)

				Catch exSice As System.InvalidCastException
					MsgBox("Error occure")
				Catch exIofre As System.IndexOutOfRangeException
					MsgBox("Check the index of field and index of listview.")
				End Try
			Next
			lvwCustomers.Items.Add(ltm)
		End While

<code>Private Sub btnLoadToListView_Click(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles btnLoadToListView.Click

		' Create the query string and 
		' define new OleDbConnection object.

		'Dim mySelectQuery As String = "SELECT CompanyName FROM " & _
		'"Suppliers"
		Dim mySelectQuery As String
		mySelectQuery = "SELECT * FROM Customers"

		Dim myConnection As New OleDbConnection("Provider=" & _
		"Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\" & _
		"Microsoft Office\Office10\Samples\Northwind.mdb")

		' Create new OleDbCommand.
		Dim myCommand As New OleDbCommand(mySelectQuery, myConnection)

		' Open the connection.
		myConnection.Open()

		' Declare an OleDbDatareader and use ExecuteReader method
		' of OleDbCommand to populate it.
		Dim myReader As OleDbDataReader
		myReader = myCommand.ExecuteReader()

		' ******************************************************
		'
		' Pass the field value to the column header 
		' of list view.
		Dim i As Integer		' Total number of column.
		For i = 0 To myReader.FieldCount - 1
			lvwCustomers.Columns.Add(myReader.GetName(i).ToString, _
			100, HorizontalAlignment.Center)
		Next
		'
		' Pass the field value to the column header is success.
		' 
		' *****************************************************


		' Use Read method of the OleDbDataReader to retrieve data
		' use it to GetString method to display data in list view.
		Dim ltm As ListViewItem
		Dim str(myReader.FieldCount) As String
		Dim j As Integer

		While myReader.Read()
			'txtData.Text = txtData.Text & myReader.GetString(0) & _
			'ControlChars.CrLf
			For j = 1 To myReader.FieldCount
				Try
					ltm = New ListViewItem(myReader.GetString(j).ToString)

				Catch exSice As System.InvalidCastException
					MsgBox("Error occure")
				Catch exIofre As System.IndexOutOfRangeException
					MsgBox("Check the index of field and index of listview.")
				End Try
			Next
			lvwCustomers.Items.Add(ltm)
		End While

		' Close OleDbDataReader and OleDbConnection.
		myReader.Close()
		myConnection.Close()

	End Sub</code>