inside the while loop
add a msgbox command to show you what it reads
something like this i mean
Code:
..........
Dim reader As SqlDataReader
reader = Command.ExecuteReader()
While reader.Read()
MsgBox(reader.Item(0))
End While
reader.Close()
.........