[h2551996]

السلام عليكم
لدي قاعدة بيانات 
واجلب كامل اللي بها حوالي 3000 او يزيد
وعند الفتح يتم التحميل ببطئ
حوالي 20 ثانية

كود :

Public Sub LoadAllQuick_Sale()
       DgvQuick.Rows.Clear()
       con = New SqlConnection(cs)
       If con.State = 1 Then con.Close()
       con.Open()
       cmd = New SqlCommand(" Select * from QuickSale_Tbl ", con)
       rdr = cmd.ExecuteReader
       While rdr.Read()
           DgvQuick.Rows.Add(rdr("Sale_ID").ToString, rdr("Order_ID").ToString, Convert.ToDateTime(rdr("OrderDate")).ToString("dd/MM/yyyy"), rdr("CustomerName").ToString, rdr("Total").ToString, rdr("Tax_Value").ToString, rdr("Discount_Value").ToString, rdr("FinalTotal").ToString)

       End While
       rdr.Close()
       con.Close()
       Load_Totals()
   End Sub