Nothing

看来你还不懂什么是Connection对象和Recordset对象。
方法就当是这们
dim rs as Recordset
set rs=cnn.execute("select * from tblweight")
n=0
do while rs.eof=false
    gs1=gs1+rs.fields("gs1").value
    gs2=gs2+rs.fields("gs2").value
    gs3=gs3+rs.fields("gs3").value
    n=n+1
loop

如果求gs1的平均值，只需 p1=gs1/n，gs2类推。

Nothing

Connection，Recordset本身就是对象
其实还有更好的办法，就是用SQL语句，不过，很多软件开发不让使用SQL语句直接对数据库操作，你可以研究一下Recordset对象。