vb.net, BackGroundWorker, DataGridView, ToolstripProgressBar

Public Class frmTest
    Private WithEvents BGW As BackgroundWorker = New BackgroundWorker
 
    Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
        btnCancel.Enabled = True
        btnSubmit.Enabled = False
        BGW.WorkerSupportsCancellation = True
        BGW.RunWorkerAsync(Variable)
    End Sub
 
    Private Sub BGW_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs) Handles BGW.DoWork
        Dim Variable = e.Argument.ToString
        Dim connection As New SqlConnection(connectionStr)
        Dim selectStatement As String _
               = "Select * From dbTable Where Column=@Variable"
        Dim selectCommand As New SqlCommand(selectStatement, connection)
        selectCommand.Parameters.AddWithValue("@Variable", Variable)
        connection.Open()
        Dim myDataAdapter As New SqlDataAdapter(selectStatement, connectionStr)
        Dim ds As New DataSet
        myDataAdapter.Fill(ds)
        e.Result = ds
    End Sub
 
    Private Sub BGW_RunWorkerCompleted(ByVal sender As Object, ByVal e As RunWorkerCompletedEventArgs) Handles BGW.RunWorkerCompleted
        btnCancel.Enabled = False
        btnSubmit.Enabled = True
        DataGridView1.DataSource = e.Result
        With DataGridView1
            '....code here
        End With
    End Sub
 
    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        btnCancel.Enabled = False
        btnSubmit.Enabled = True
        BGW.CancelAsync()
    End Sub

Select allOpen in new window