[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