[mrnooo2000]

انت من طلب الاستعلام بالأكسس من البداية 

لكن 
لا مشكلة أخى الكريم

يمكننا ان نخرج من هذا كله بحل بسيط جدا 
فقط نستخدم استعلام linq

بعد أن تملء الجدول datatable لديك من قاعدة البيانات 

و ليكن اسم الجدول dt
نقوم بعمل الاستعلام ثم 
نعرض البيانات 

و هذا هو الكود 

كود :

       Dim dt As New DataTable
       Using da As OleDbDataAdapter = New OleDbDataAdapter("Select * From adraseed", conn)
           da.Fill(dt)
       End Using

       Dim groupedData = From rw In dt.AsEnumerable()
                         Select New With {
                             Key .atefinv = rw("atefinv"),
                             Key .itcod = rw("itcod"),
                             Key .invsun = rw("invsun"),
                             Key .purqu = rw("purqu"),
                             Key .invqu = rw("invqu"),
                             Key .balance = dt.AsEnumerable().Where(Function(R) R("itcod") = rw("itcod") And R("atefinv") <= rw("atefinv")).Sum(Function(c) c("purqu") - c("invqu"))
                         }

       DataGridView1.DataSource = groupedData.ToList

و لا كرشه و لا عضم و لا أى حاجة 

و بالتوفيق