اعاني من بطئ بتحميل البيانات داخل الداتا جيرد يوجد لدي اكثر من 100 الف صف

PHP كود :

 '< الإتصال بقاعدة البيانات
    Dim conn As New OleDbConnection(ConfigurationManager.ConnectionStrings("LAUNDRY_SYSTEM.My.MySettings.Laundry_DatabaseConnectionString").ConnectionString)
    Dim dt As New DataTable
    Dim Cmd As New OleDbCommand()
    Dim dr As DataRow
    Dim rdr As OleDbDataReader



  Using Cmd As New OleDbCommand("SELECT billnumber,nameseller,customername,mobilenumber,receiveddate,paymentstatus,paymenttype,dataofpayment,pec,total,discount,VAT,totalamount,amountreceived,remaningamount,Order_status FROM Customers1", conn)
            Cmd.CommandType = CommandType.Text
            Using sda As New OleDbDataAdapter(Cmd)
                Using dt As New DataTable()
                    sda.Fill(dt)
                    Customers1DataGridView.DataSource = dt
                End Using
            End Using
        End Using

  Using Cmd As New OleDbCommand("SELECT productA,itemnumber,price,Total,billnumber FROM Customers", conn)
                Cmd.CommandType = CommandType.Text
                Using sda As New OleDbDataAdapter(Cmd)
                    Using dt As New DataTable()
                        sda.Fill(dt)
                        CustomersDataGridView.DataSource = dt
                    End Using
                End Using
            End Using

PHP كود :

Imports System.ComponentModel
Imports System.Data.OleDb

Public Class Form1
    Private Sub LoadData()
        ' Create a background worker
        Dim worker As New BackgroundWorker()
        AddHandler worker.DoWork, AddressOf worker_DoWork
        AddHandler worker.RunWorkerCompleted, AddressOf worker_RunWorkerCompleted
        worker.RunWorkerAsync()
    End Sub

    Private Sub worker_DoWork(sender As Object, e As DoWorkEventArgs)
        Dim connStr As String = ConfigurationManager.ConnectionStrings("LAUNDRY_SYSTEM.My.MySettings.Laundry_DatabaseConnectionString").ConnectionString
        Dim dt1 As New DataTable()
        Dim dt2 As New DataTable()

        Using conn As New OleDbConnection(connStr)
            conn.Open()

            ' Load first data table
            Using cmd1 As New OleDbCommand("SELECT billnumber, nameseller, customername, mobilenumber, receiveddate, paymentstatus, paymenttype, dataofpayment, pec, total, discount, VAT, totalamount, amountreceived, remaningamount, Order_status FROM Customers1", conn)
                Using sda1 As New OleDbDataAdapter(cmd1)
                    sda1.Fill(dt1)
                End Using
            End Using

            ' Load second data table
            Using cmd2 As New OleDbCommand("SELECT productA, itemnumber, price, Total, billnumber FROM Customers", conn)
                Using sda2 As New OleDbDataAdapter(cmd2)
                    sda2.Fill(dt2)
                End Using
            End Using
        End Using

        e.Result = New DataSet()
        DirectCast(e.Result, DataSet).Tables.Add(dt1)
        DirectCast(e.Result, DataSet).Tables.Add(dt2)
    End Sub

    Private Sub worker_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs)
        Dim ds As DataSet = DirectCast(e.Result, DataSet)
        Customers1DataGridView.DataSource = ds.Tables(0)
        CustomersDataGridView.DataSource = ds.Tables(1)
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        LoadData()
    End Sub
End Class

PHP كود :

Customers1DataGridView.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.None
Customers1DataGridView.AutoGenerateColumns = False
CustomersDataGridView.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.None
CustomersDataGridView.AutoGenerateColumns = False