VB之Command对象调用存储过程

private conn as ADODB.connection,rs as ADODB.recordset

command1_click()

set conn = New ADDB.connection()

conn.connectionstring="Provider=SQLOLEDB.1;user id=sa;password=;Initial catalog=xx;data source=yy"

conn.open

set cmd = new adodb.command

set cmd.activeConnection = conn

cmd.commandText = "{call 存储过程（?,?,?）}"

cmd(0)=Text1.text

cmd(1)=Text2.text

cmd(2)=Text3.text

conn.beginTrans

cmd.execute

conn.commitTrans

set cmd=nothing

set conn=nothing

end sub