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()
.........