ترکیب چند دستور

[arnica]

سلام به همه اساتید گرامی . من میخوام این 4 تا دستور را در یک خط خلاصه کنم ولی نمیدونم چیکار کنم . لطفا راهنمائی کنید . از همه شما که یاری رسان هستید متشکرم .
SQLF31 = "SELECT sum(te) as jamf1,sum(metr) as jamf2 FROM frosh where trim(shp)='" & Trim(Text1) & "' and trim(shf)='" & Trim(Text13) & "' "
Adodc3.RecordSource = SQLF31
Adodc3.Refresh
Text30 = Format$(Adodc3.Recordset.Fields("jamf2"), "####.###")
'----------------------------------------------------------------
SQLF32 = "SELECT count(te) as sf1 FROM frosh where trim(shp)='" & Trim(Text1) & "' and trim(shf)='" & Trim(Text13) & "' "
Adodc3.RecordSource = SQLF32
Adodc3.Refresh
sumf1 = Adodc3.Recordset.Fields("sf1")
'-----------------------------------------------------------------
SQLF33 = "SELECT count(te) as sf2 FROM frosh where trim(shp)='" & Trim(Text1) & "' and trim(shf)='" & Trim(Text13) & "' AND trim(klk)='s2' "
Adodc3.RecordSource = SQLF33
Adodc3.Refresh
sumf2 = Adodc3.Recordset.Fields("sf2")
'-----------------------------------------------------------------
SQLF34 = "SELECT count(te) as sf3 FROM frosh where trim(shp)='" & Trim(Text1) & "' and trim(shf)='" & Trim(Text13) & "' AND trim(tekrar)='Y' "
Adodc3.RecordSource = SQLF34
Adodc3.Refresh
sumf3 = Adodc3.Recordset.Fields("sf3")
Text32 = (sumf1 - sumf3) + sumf2