Public Function cout(x as long) as long
cout=0
dim cn as new adodb.Connection,snp as new adodb.recoreset
cn.ConnectionString="provider=SQLOLEDB;server='"& 服务器名称 & "';uid=sa;pwd=;database=northwind"
cn.CursorLocation = adUseClient
cn.Open
snp.open "select count(姓名) as 数量 from employees where 年龄 > " & x ,cn
cout=val("" &snp("数量") )
snp.close
cn.close