كيف احسب قيمة الربح بين جدولين المبيعات والمشتريات

بسم الله الرحمن الرحيم

قمت بتصميم وتطوير برنامج وهذا رابط التحميل لمن اراد ان يشاهده

http://www.geocities.com/hemalotfy/MobileShop.zip

ويعتبر برنامج شبه متكامل لادارة محلات الموبايل ولكن العميل طلب مني ان اعمل له تقرير يعرض له نسبة الربح اليومي وذلك بتعامل مع جدول المبيعات والمشتريات والفرق سيكون هو الربح وقمت بعمل بعض التجارب لكنها باءة بالفشل

واليكم تجربتي وهي تعمل لكن تقوم بعرض بيانات غير صحيحية!!!

 CN.Open()
		Cmd.Connection = CN
		Cmd.CommandType = CommandType.Text

		Cmd.CommandText = "drop view SumPur"
		Dr = Cmd.ExecuteReader()
		Dr.Close()

		Cmd.CommandText = "create view SumPur as SELECT price AS 'TOTAL SUM' FROM Purchases where pcode='" + TextBox1.Text + "' and pdate between '" & Sum1.Value & "' and '" & Sum2.Value & "'"
		'SUM(Total)AS 'TOTAL SUM'
		Dr = Cmd.ExecuteReader
		Dr.Close()


		Cmd.CommandText = "drop view Sumout"
		Dr = Cmd.ExecuteReader()
		Dr.Close()

		Cmd.CommandText = "create view SumOut as SELECT price AS 'TOTAL SUM2' FROM out where ocode='" + TextBox1.Text + "' and odate between '" & Sum1.Value & "' and '" & Sum2.Value & "'"
		Dr = Cmd.ExecuteReader
		Dr.Close()

		Cmd.CommandText = "select * from SumPur"
		Dr = Cmd.ExecuteReader
		Dr.Read()
		Dim X As String
		X = Dr("'TOTAL SUM'")
		Dr.Close()

		Cmd.CommandText = "select * from SumOut"
		Dr = Cmd.ExecuteReader
		Dr.Read()
		Dim Y As String
		Y = Dr("'TOTAL SUM2'")
		Dr.Close()

		Dim All As String = Val(Y) - Val(X)

		MsgBox(All, , "قيمة الربح هي")