While Loop Gets All Records Except First One

I'm doing a select from a database table, opening a data reader, then looping through the datareader in a while loop and setting a variable. For some reason every record gets stored in the variable except for the first one. Is there something you need to do in order to get the first one? Here is what I have. Thanks

 

 

 1
2 Dim conn As New SqlConnection(Application("ConnectionString"))
3 conn.Open()
4
5
6 Dim cmdAllOffices As New SqlCommand("select officeid from corp_officephone_map_tbl where " & _
7 "emplid=" & "'" & strEmplid & "'", conn)
8
9 Response.Write(cmdAllOffices.CommandText.ToString & "<br><br>")
10
11
12
13 Dim drAllOffices As SqlDataReader = cmdAllOffices.ExecuteReader()
14
15 drAllOffices.Read() ' Read The Data
16
17
18
19 Dim strAllOffices As String = Nothing
20
21
22 While drAllOffices.Read()
23
24
25 strAllOffices &= ("'" & drAllOffices("officeid") & "'" & ",")
26
27
28
29 End While
 

strAllOffices contains a comma delimited string, but always is missing the first record.