Using Adodc control to subtract Queries Result

[SAJJAD123456]

I'm still not able to understand why it is not work

=>>what I try

I try to Use adodb,Dao control
but I'm not satisfy Because I Don't know about ADODB,DAO and
my remaining application using adodc control so if I Use Other Control it make's mess

=>>Code

 
Dim large_tbl As String 
Dim sell_large As String
 
 
large_tbl = "SELECT Sum(No_Of_Bottle) FROM add_cotton where Cateogry='Large'"
sell_large = "SELECT Sum(Quantity) FROM Sell_Detail where Cateogry='Large'"
 
Adodc1.RecordSource = large_tbl - sell_large
Adodc1.Refresh
 
End Sub