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

PHP كود :
Imports System.ComponentModel
Imports System.Data.SqlClient

Public Class Form1

    ' تعريف الـ BackgroundWorker
    Private WithEvents bgWorker As New BackgroundWorker()

    ' تهيئة النموذج وتحميل البيانات عند فتح النموذج
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' تهيئة الـ BackgroundWorker
        bgWorker.WorkerReportsProgress = False
        bgWorker.WorkerSupportsCancellation = True

        ' ابدأ تحميل البيانات
        bgWorker.RunWorkerAsync()
    End Sub

    ' الحدث الذي يتم تشغيله في الخلفية لتحميل البيانات
    Private Sub bgWorker_DoWork(sender As Object, e As DoWorkEventArgs) Handles bgWorker.DoWork
        ' إعداد الاتصال بقاعدة البيانات
        Dim connectionString As String = "Data Source=YOUR_SERVER;Initial Catalog=YOUR_DATABASE;Integrated Security=True"
        Dim query As String = "SELECT * FROM YOUR_TABLE"

        ' تحميل البيانات
        Dim dt As New DataTable()
        Using conn As New SqlConnection(connectionString)
            Using cmd As New SqlCommand(query, conn)
                conn.Open()
                Using reader As SqlDataReader = cmd.ExecuteReader()
                    dt.Load(reader)
                End Using
            End Using
        End Using

        ' تمرير البيانات للحدث RunWorkerCompleted
        e.Result = dt
    End Sub

    ' الحدث الذي يتم تشغيله بعد الانتهاء من تحميل البيانات
    Private Sub bgWorker_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles bgWorker.RunWorkerCompleted
        If e.Error IsNot Nothing Then
            ' التعامل مع الأخطاء
            MessageBox.Show("Error: " & e.Error.Message)
        Else
            ' عرض البيانات في DataGridView
            DataGridView1.DataSource = CType(e.Result, DataTable)
        End If
    End Sub
End Class