dim cn as adodb.connection
set cn =new adodb.connection
cn.connectstring=.......
cn.open
cn.execute strstoreproc
'strstoreproc:存储过程名
set cn =new adodb.connection
cn.connectstring=.......
cn.open
cn.execute strstoreproc
'strstoreproc:存储过程名
调试欢乐多
dim strSQL as string
'建立连接
cn....
cn.open
strSQL="Call strstoreproc(pro)"
cn.execute strSQL
'strstoreproc:存储过程名
'pro 参数