Visual Basic

Dim li As ListItem
ListView1.ColumnHeaders.Add 1, "col1"
ListView1.ColumnHeaders.Add 2, "col2", "col2"

'ImageList1 must have at least one image.
Set ListView1.SmallIcons = ImageList1
Set ListView1.ColumnHeaderIcons = ImageList1
Set li = ListView1.ListItems.Add(1, "item1", "", , 1)
li.ListSubItems.Add 1, "subItem1", "sutItem", 1
ListView1.ColumnHeaders(1).Icon = 1

    Public Const CURSOR_TYPE = 3<br />
    Public Const LOCK_TYPE= 3<br />
<br />
Dim connectionString as string<br />
Dim sql as string<br />
Dim connectionObj As New ADODB.Connection()<br />
Dim recordSet As New ADODB.Recordset()<br />
<br />
connectionString = "dsn=DSN;uid=USER_ID;pwd=USER_PASSWORD;database=DATABASE_NAME<br />
sql = "SELECT name FROM sysobjects"<br />
<br />
connectionObj.Open(connectionString) <br />
<br />
'There are Many ways to access an retrieve data this is just one sample<br />
<br />
recordSet = connectionObj.Execute(sql)<br />
OR<br />
recordSet.Open(sql, connectionObj, CURSOR_TYPE, LOCK_TYPE)<br />
<br />
'Loop thru Record set (row) I believe this is only forward reading<br />
<br />
With recordSet<br />
                    Do Until .EOF<br />
			<br />
			'Get the COlumns in the Row and do something set to varilable, call other routine, etc..<br />
			.Fields("name").Value ' this is the column name in the select statment (sql)<br />
				OR <br />
			.Fields.Item(0) ' also the column name, specify the column index number 0 to however many columns<br />
			<br />
			.MoveNext() ' go to next record<br />
                    Loop<br />
End With

"You can have everything in life you want if you will just help enough other people get what they want." --Zig Ziglar

The Second EuroCPian Event will be in Brussels on the 4th of September