I have the following code that is executed on a button. Dim str As String = "get data from database" < ...