Загрузка в DataTable из БД в отдельном потоке

Imports System.Data
Imports System.Data.OleDb
Imports System.Threading
 
Public Class Form1
    Dim cnn As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & "C:\Склад_Общий.accdb")
    Dim cmd As New OleDbCommand
    Dim da As New OleDbDataAdapter
    Dim ds As New DataSet
    Delegate Sub MySub()
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ds.Tables.Add("СКЛАД")
        cmd = cnn.CreateCommand
        cmd.CommandText = "SELECT * FROM СКЛАД"
        da.SelectCommand = cmd
        Invoke(New MySub(AddressOf mysub1))
    End Sub
 
      Private Sub mysub1()
        da.Fill(ds, "СКЛАД")
        DG1.DataSource = ds
        DG1.DataMember = "СКЛАД"
    End Sub
 
End Class

Imports System.Data
Imports System.Data.OleDb
Imports System.ComponentModel.BackgroundWorker
Public Class Form1
 
    Public Sub New()
        InitializeComponent()
        BackgroundWorker1.WorkerReportsProgress = True 
        BackgroundWorker1.WorkerSupportsCancellation = True
    End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
       BackgroundWorker1.RunWorkerAsync()
    End Sub
 
    Private Sub BackgroundWorker1_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Try
            Dim cnn As New OleDbConnection
            Dim cmd As New OleDbCommand
            Dim da As New OleDbDataAdapter
            Dim dt As New DataTable
            cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & "DataSource=C:\Склад_Общий.accdb"
            cmd = cnn.CreateCommand
            cmd.CommandText = "SELECT * FROM СКЛАД"
            da.SelectCommand = cmd
            da.Fill(dt)
            e.Result = dt
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
 
    Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged 
           ProgressBar1.Value = e.ProgressPercentage 
    End Sub
 
    Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
        DataGridView1.DataSource = e.Result
    End Sub
    
End Class