List Box in vb2005

Hi All,

I am trying to upgrade my existing vb6 project to vb2005.
In vb6 i was using


strQuery = "select * from tblemployee order by emp_name"
Set rstRecord = gObjConn.Execute(strQuery)

While Not rstRecord.EOF

lstLookup.AddItem rstRecord("emp_name")
lstLookup.ItemData(lstLookup.NewIndex) = rstRecord("emp_id")
rstRecord.MoveNext
Wend

How can i do the same using vb2005


Thnks

vb Code:

'Use this code to get the data from your database
        Dim con As New OleDb.OleDbConnection("type your connection string")
        con.Open()
        Dim da As New OleDb.OleDbDataAdapter("select * from tblTest", con)
        Dim dt As New DataTable
        Dim ret As Integer = da.Fill(dt)
        If ret > 0 Then
            For i As Integer = 0 To ret - 1
                ListBox1.Items.Add(dt.Rows(i).Item("fieldname"))
            Next
        End If

Where the index setting like we do in vb6 lstLookup.ItemData(lstLookup.NewIndex) = rstRecord("emp_id")

Have a look at this example to add more values in a listbox/combobox