[Rabeea Qbaha]

كما ذكر الاخ وائل فق انصح باستخدام الباراميترز بدل الطريقة المباشرة 

لاحظت ايضا انك تفحص الاتصال اذا كان مفتوح و تقوم باغلاقة و فتحة من جديد وهذا بالبرامج الكبيرة يقلل السرعة 

فقط افحص الاتصال اذا مغلق افتحة اذا كان مفتوح اكمل.

كود :

Public Function Sum_TBL_Orders()
      Dim Number As Integer
      Try
          Dim cmd As New OleDbCommand("Select  Sum(TotalBill), Id_customer from TBL_Orders where Id_customer = @Id_customer "
          cmd.parameters.addvaluewith("@Id_customer",رقم العميل)
          If con.State = 0 then
          con.Open()
          end if
         
          Number = cmd.ExecuteScalar
          con.Close()
      Catch ex As Exception
          Number = 0
          con.Close()
      End Try
      Return Number
  End Function