Dim adoConnaction as new adodb.connaction
Dim adoCommand as new adodb.Command
Dim adoRecordset as new adodb,Recordset
Dim strConnaction as string
'数据库连接
strConnaction = "Driver={sql server};server=server name;uid=;pwd=;database=db name;"
adoConnaction.open strConnaction
adoConnaction.CursorLocation= adUseClient
'Command和Recordset对象设置
adoCommand.activeConnaction=adoConnaction
adoCommand.commandtype=adCmdStoreProc
adoCommand.commandText="storeprocedure name"
'------------------------
adoCommand.Parameter(?).type=???
adoCommand.Parameter(?).Value
'------------------------
set adoRecordset = adoCommand.Execute
'使用adoRecrdset
'.........
'关闭ado