Hola... estas utilizando sql server.. y lo estas poniendo como OLEDb..??? porque no intetnas algo como esto:
Dim ConnectionString As String =
"server=localhost;Trusted_Connection=true;database =tu_base"
Dim MyConnection As New SqlConnection(ConnectionString)
Dim cmd As New SqlCommand("select * from tabla", MyConnection)
Dim reader As SqlDataReader = cmd.ExecuteReader
reader.Read
lstNames.Items.Add(New ListItem(reader("Nombre"),reader("algun_id")))
reader.Close
MyConnection.Close
ahora que si quieres llenar tu lista podrías hacer algo como esto:
do while reader.Read
lstNames.Items.Add(New ListItem(reader("Nombre"),reader("algun_id")))
loop
reader.Close
Saludos