Try this inside your While loop to iterate over each column of each row regardless of the column name. If you need to access only certain columns, provide the column name instead of its index:
For i = 0 To rdr.FieldCount - 1
Console.WriteLine(rdr.GetName(i), dr(i)))
Next