جمع كردن چند عدد به وسيله ي ADO در پايگاه accses

[aliarabsolghar]

با عرض سلام خدمت جناب مهندس
من مي خواهم چند عدد را كه در يك فيلد قرار دارند با هم جمع كنم
1-اعداد پشت سر هم هستند
2-خواهشن ادامه ي كدهاي منرا كامل كنيد

dim cn as adodb.connection
dim rs as adodb.recordset
set cn=new adodb.connection
conn="provider=....................................................."
cn.open(conn)
set rs = new adodb.recordset
rs.open "select * from number"

private sub command_click()
dim SQLtxt as string
SQLtxt="select sum(number) as newnumber from project"
حال مي خواهم اعداد number را جمع زده ودر text2.text قرار دهم .
متشكرم