在VB中，可以使用ADO（ActiveX Data Objects）对象来调用存储过程。下面是一个简单的示例代码：
Dim conn As Object
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = "Provider=SQLOLEDB;Data Source=服务器名;Initial Catalog=数据库名;User ID=用户名;Password=密码"
conn.Open
Dim cmd As Object
Set cmd = CreateObject("ADODB.Command")
cmd.ActiveConnection = conn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "存储过程名"
' 设置存储过程的参数
cmd.Parameters.Append cmd.CreateParameter("参数名", adInteger, adParamInput, , 参数值)
' 执行存储过程
cmd.Execute
' 关闭连接
conn.Close
Set conn = Nothing
Set cmd = Nothing
在代码中，你需要根据自己的实际情况修改连接字符串、存储过程名以及参数值。同时，你还可以根据实际情况添加其他的参数。
注意：上述代码中使用的是旧版的ADO（ADODB），在新版的.NET中，可以使用ADO.NET来调用存储过程。
