Endast en rad?

Om denna kod är för att plocka ut flera rader, hur gör jag då om jag bara vill ha en? Alltså min fråga returnerar bara en rad då är det väl onödigt att använda while? ExecuteScalar() returnerar väl bara en post och det är fel.

Dim reader As OleDbDataReader = command.ExecuteReader()
While reader.Read()
    rValue += CType(reader(0) & " " & reader(1) & "<br />", String)
End While

If reader.Read() then
    Return  ...
End if