مساعدة في اجراء عملية جمع لاحد اعمدة Data Grid

السلام عليكم

هناك مشكلة في البرنامج المرفق

على العموم ان محتويات اي جدول في vb سواء DataGrid او FelxGrid هو ناتج جملة استعلام

فيكمن تطبيق نفس جملة الاستعلام بنفس الشروط ولكن بجمع حقل المبلغ مثلا وثم وضع الناتج في text او اي شي اخر

بالتوفيق

شكرا على الرد استاذ احمد خليل اني لم اجد الخلل في البرنامج ويا يريت تكتبلي جملة الاستعلام المتظمة لعملية جمع عمود من الجدول وشكراً لك

السلام عليكم

sqls = "select * from supplier where date between '" & Format(DTPicker1, "MM/DD/YYYY") & "' and '" & Format(DTPicker2, "MM/DD/YYYY") & "' order by date asc"
If rs.State = adStateOpen Then rs.Close
rs.Open sqls, db, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = rs

sqlss = "select sum(amount) as am1 from supplier where date between '" & Format(DTPicker1, "MM/DD/YYYY") & "' and '" & Format(DTPicker2, "MM/DD/YYYY") & "'"
If rs1.State = adStateOpen Then rs1.Close
rs1.Open sqlss, db, adOpenKeyset, adLockPessimistic
rs1.MoveFirst
totx1 = rs1.Fields("am1")

جملة الاستعلام الاولى وهي التي ستظهر في Datagrid

جملة الاستعلام الثانية والتي يتم جمع الحقل المطلوب بنفس شروط الجملة الاولى

وتوضع في Text

الف شكر اخي احمد خليل على اهتمامك نجح الكود الي وضعته في حل المشكلة الله اوفقك....