dim Rst AS New Adodb.RecordSet
dim Cn AS New Adodb.Connection
dim SqlStr as String
SqlStr = "select sum(to_number(COL_VCHAR)) as aaa from UR_TABLE where zy='1' "
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb"
Rst.Open SqlStr , Cn, 1, 3
xxx=Rst.Fields("aaa").Value
msgbox xxx