Not displaying all results

I'm working on a gallery that will pull all active visitors to the foundation I work for and associate their information with a photograph. I am spacing them three records per row as this is the easiest to view within our design guidelines. When the SQLDataReader gets to the end of the querry if there are not exactly three records it cuts of all records past the last full row. The code below is actual formating code for the table including my failed attempt to rectify this.

Try
            'connection to SQL database
            visitorConnection.ConnectionString = "Data Source=SQLtest;Initial Catalog=EmployeeList;uid=IntranetUser;pwd=IntranetUser"
            visitorConnection.Open()

            'SQL querry that preformats visitorName and visitorPhoto for filename search
            'needs to be replaced with a stored procedure at a later date
            visitorQuery = "SELECT [LastName],[FirstName],[Department],[Supervisor],[Phone Number],[Extension],[EmailAddress] FROM [EmployeeList].[dbo].[NonEmployees] WHERE Inactive <> '1' AND LastName <> 'Security' ORDER BY LastName"

            visitorCommand.CommandText = visitorQuery
            visitorCommand.CommandType = CommandType.Text
            visitorCommand.Connection = visitorConnection
            'imagePath = System.Configuration.ConfigurationManager.AppSettings.Get("ImageDirectory")
            imagePath = "c:\inetpub\wwwroot\HR\Photos\"
            visitorReader = visitorCommand.ExecuteReader()
            Dim cellCounter As Integer = 1
            If visitorReader.HasRows Then
                While visitorReader.Read()

....

                    'create the table
                    'creates new row for table to add cells to
                    If cellCounter = 1 Then
                        tr = New TableRow
                    End If

                    'creates the cell for the photo, sets it to 11%, adds it to the row, then clears tc
                    tc = New TableCell
                    tc.Width = Unit.Percentage(11)
                    tc.Text = (visitorShowImage)
                    tr.Cells.Add(tc)
                    tc = Nothing

                    'creates the cell for employee info, sets it to 22%, adds it to the row, then clears tc
                    tc = New TableCell
                    tc.Width = Unit.Percentage(22)
                    tc.Text = visitorContent
                    tr.Cells.Add(tc)
                    tc = Nothing


                    'adds the row to the table after 3 records are cycled
                    If cellCounter = 3 Then
                        Me.tblVisitor.Rows.Add(tr)
                        tr = Nothing
                    End If

                    'loops through the records 3 times and then resets the counter
                    If cellCounter <> 3 Then
                        cellCounter += 1
                    Else
                        cellCounter = 1
                    End If

                End While

                'ElseIf visitorReader.HasRows = False Then
                '    If cellCounter <> 3 Then
                '        tc = New TableCell
                '        tc.Width = Unit.Percentage(33)
                '        tc.Text = "&nbsp"
                '        tr.Cells.Add(tc)
                '        tc = Nothing
                '        cellCounter += 1
                '    Else
                '        Me.tblVisitor.Rows.Add(tr)
                '        tr = Nothing
                '    End If
            End If


            visitorReader = Nothing
            visitorCommand = Nothing
            visitorConnection.Close()
            visitorConnection.Dispose()

        Catch ex As Exception
            HandleError(ex, HttpContext.Current, True, "")
        End Try

    End Sub

End Class

Can anyone easily see what it is I'm doing wrong or simply not doing?

Re: Not displaying all results

Fixed it with three lines of code:

If (visitorReader.Read = False) And (cellCounter < 3) Then
                    Me.tblVisitor.Rows.Add(tr)
                End If

Just had to take a break and come back to it.