它仅在完成文本框后才在文本框中提供值。如何在运行计时器时显示数据？

Question

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        Me.TextBox1.Text = "hello"

 Dim connectionString As String = "Data Source=192.168.0.199;Initial Catalog=NEWDATABASE;Persist Security Info=True;User ID=admin;Password=123456"
        Dim connection As New SqlConnection(connectionString)
        connection.Open()

        Dim sql As String = "SELECT TOP (" & topvalue & ") * FROM [NEWDATABASE].[dbo].[MachineParameter] WHERE status = '0' ORDER BY Id ASC"
        Dim dataadapter As New SqlDataAdapter(sql, connection)
        Dim ds As New DataSet()

        dataadapter.Fill(ds, "table")

        DataGridViewtx.DataSource = ds
        DataGridViewtx.DataMember = "table"
connection.close()
end sub