Listbox Binding

[OuTCasT]

Hi
I have filled a listbox with a column of information from my sql database

Private Sub GetClients()
        Dim sqlCom As SqlCommand = New SqlCommand("select emailaddress from register where paymentreceived = 'No'", sqlCon)
        sqlCon.Open()
        sqlAdapter = New SqlDataAdapter(sqlCom)
        sqlAdapter.Fill(sqlDS, "register")
 
 
        dr = sqlCom.ExecuteReader
 
        If dr.HasRows Then
            For Each rec As Common.DbDataRecord In dr
                alRows.Add(rec)
            Next
            ListBox1.DataSource = alRows
            ListBox1.DisplayMember = "emailaddress"
 
        End If
        sqlCon.Close()
    End Sub

But now when i try to loop through the rows of the listbox

 Dim i As Integer
        For i = 0 To ListBox1.Items.Count - 1
            MsgBox(ListBox1.Items(i))
        Next

i get an error

conversion from type 'DataRecordInternal' to type 'String' is not valid

is there a better way to get the values... ?

[OuTCasT]

Corrected the error.

For Each row In sqlTable.Rows
             row("emailAddress")
Next