[MOHAMED_AWAD]

بسم الله والصلاه والسلام علي رسول الله
إخواني الكرام اشكركم لحسن تعاونكم 
مازالت تواجهني مشكلة في جملة الاستعلام
   

[Adrees]

ضع كلمة المعرف بين الاقواس [ ]

[galas]

جرب هذا الكود

إستبدل "Your query"

بالكويري الموجود في الصورة 

سأنتظر الرد ، لمعرفت اذا ما واجهتك مشاكل
بالتوفيق

كود :

Try
           If CON.ConnectionState.Closed Then
               CON.Open()
           End If

        Dim ds As New DataSet
             Dim da As New OleDbDataAdapter
        Dim dv As New DataView
        
        Dim strqurey As String = "Your query"

           ds = New DataSet
           da = New OleDbDataAdapter(strqurey, CON)

           da.Fill(ds, "tbl_orders")
           dv = New DataView(ds.Tables("tbl_orders"))

           Me.dgvorders.DataSource = Nothing
           Me.dgvorders.DataSource = dv

           CON.Close()
       Catch ex As Exception
           MsgBox(ex.Message)
End Try

[elgokr]

المشكلة لديك فى كود الاستعلام

يبدو انك تريد عرض بيانات من 3 جداول

ولكن يبدو انك تتعامل بطريقة خطاء 

ارفق قاعدة البيانات حتى يتم عمل 

كود الاستعلام بالصورة الصحيحة

تحياتى لك

وتمنياتى لك التوفيق