sum of a field in access

[buddyel]

I have a form based on a query that prompts for a particular part number. what I would like the value of a textbox (txtYTDCO1) to equal the sum of all values in the QTY field for that particular part number. Can anyone help?

 

[ITphile]

"select sum(qty) as qty from table where id=part number"

 

[ITphile]

dim rs as new adodb.recordset
str2="select sum(qty) as qty from table where id=" & partnumber

rs.open str2,cnn,adopendynamic,adlockoptimistic
if rs.bof = false then
if isnull(rs!qty)=false then
txtYTDCO1.text=rs!qty
end if
end if
rs.close