在VB中，可以使用ADO（ActiveX Data Objects）对象来调用存储过程。下面是一个简单的示例代码：

Dim conn As ObjectSet conn = CreateObject("ADODB.Connection")conn.ConnectionString = "Provider=SQLOLEDB;Data Source=服务器名;Initial Catalog=数据库名;User ID=用户名;Password=密码"conn.OpenDim cmd As ObjectSet cmd = CreateObject("ADODB.Command")cmd.ActiveConnection = conncmd.CommandType = adCmdStoredProccmd.CommandText = "存储过程名"' 设置存储过程的参数cmd.Parameters.Append cmd.CreateParameter("参数名", adInteger, adParamInput, , 参数值)' 执行存储过程cmd.Execute' 关闭连接conn.CloseSet conn = NothingSet cmd = Nothing

在代码中，你需要根据自己的实际情况修改连接字符串、存储过程名以及参数值。同时，你还可以根据实际情况添加其他的参数。

注意：上述代码中使用的是旧版的ADO（ADODB），在新版的.NET中，可以使用ADO.NET来调用存储过程。