Updating DatagridView periodically. vb.net

See more:

DataGridView

DataTable

I have one client programing which updates my table 'sharedfiles_tb'.
And i have another server program, which just shows all the rows in 'sharedfiles_tb'.

The server shows all the results in a datagridview with the help of a datatable. datatables is loaded with datareader.

But, when i add a row, through the client program, the new row added is not shown in the datagridview of the server immediately. If i restart the server program then it will be shown.

I created a thread which points to a function, which infinitely execute the query, but still the latest changes are not being reflected in the datagridview.

Following it the code

Dim dt As New DataTable
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 Dim ThreadSharedFiles As New Threading.Thread(AddressOf GetSharedFiles)
 ThreadSharedFiles.Start()
End SUb
Private Sub GetSharedFiles()
        Dim dr As SqlDataReader
        Dim query As String
        Dim cmd As SqlCommand
        Dim conn As New SqlConnection
        While True
            Threading.Thread.Sleep(500)
            If conn.State = ConnectionState.Open Then
                conn.Close()
            End If
            query = "select filename, size, username from sharedfiles_tb"
            conn.ConnectionString = "Data Source=hurricane\sqlexpress01;Initial Catalog=serverdb;Integrated Security=True"
            conn.Open()
            cmd = New SqlCommand(query, conn)
            dr = cmd.ExecuteReader()
            If dr.HasRows Then
                dt.Load(dr)
                PopulateSharedFilesDatagrid()
                dr.Close()
            Else
                MessageBox.Show("No results found", "No Results", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            End If
            conn.Close()
        End While
End Sub
Private Sub PopulateSharedFilesDatagrid()
        If Me.InvokeRequired Then
            Me.Invoke(New MethodInvoker(AddressOf PopulateSharedFilesDatagrid))
        Else
            GroupBox2.Text = Label3.Text + " Shared Files"
            DataGridView1.DataSource = dt
            DataGridView1.Refresh()
        End If
    End Sub

please help....