1:
oraStr = "select count as ct from result "
oraRec.CursorLocation = adUseClient
oraRec.Open oraStr, oraconn  ,adOpenStatic '可以直接用oraRec.RecordCount得到count 
'或orarec.Fields(0).Value 得到count2:最好将该变量定义在Modules中,且为public,这样就可以直接使用了