因为access的默认未命名字段是从expr1000开始增加的.
而sql server 是从expr1开始增加的.所以应该改成这样:
dim rs as new adodb.recordsetrs.open "select count() from ",cn
x=rs!expr1
rs.open "select sum() from ",cn
x=rs!expr1
rs.open "select averg() from ",cn
x=rs!expr1注:
  你最好在sql语句里就命名,不然看着不明白意思,还容易出错.
例:
   rs.open "select averg() as avg from ",cn
x=rs!avg