عرض تقرير يظهر فقط الشقق التي لم تدفع الايجار

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

لدي جدولين الاول للعقود وبه حقل قيمة الايجار وحقل رقم الشقة ( o_no , c_value )

والجدول الثاني الايجارات وبه حقل المبلغ المدفوع وحقل رقم الشقة ( o_no , l_amount )

أود عرض تقرير يظهر فقط الشقق التي لم تدفع الايجار

عملت استعلام بواسطة الاكسس ونجح ولكن اريد تحويل الكود لكي يعمل على فيجول 6 وعجزت

SELECT  o_no, c.c_value, x.amount, leftt
FROM (select c.o_no,c.c_value,x.amount,c.c_value - x.amount as leftt
from contract c inner join 
(
SELECT l.o_no, sum(l.l_amount) as  amount
FROM lease l
group by  l.o_no
) x
on c.o_no=x.o_no
)
WHERE leftt>0;

وكود الفيجول

'Set rs = cn.Execute("select [b_no],[o_no],[c.c_value],[x.amount],leftt from " _
		& "(select [c.o_no],[c.c_value],[x.amount],(c.c_value - x.amount) as leftt " _
		& "from contract c INNER JOIN " _
		& "(select [l.o_no],sum(l.l_amount) as amount from lease l group by l.o_no) x " _
		& "on c.o_no = x.o_no) where leftt > 0")
Set rs = cn.Execute("select [contract.o_no],[contract.c_value],sum(lease.l_amount) as xamount,(contract.c_value - lease.amount) as leftt " _
	& "from contract INNER JOIN lease " _
	& "ON [contract.o_no] = [lease.o_no] group by [lease.o_no]")

ولكم تحياتي