Dopo aver aperto il DataReader, usa queste linee:
If reader.HasRows Then
Do While reader.Read()
Console.WriteLine(vbTab & "{0}" & vbTab & "{1}", reader.GetInt32(0), reader.GetString(1))
Loop
Else
Console.WriteLine("No rows returned.")
End If
reader.Close()