获取存储过程返回的变量时出错~~~~~~~~~~~~

Question

Option ExplicitDim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cmd As New ADODB.Command
Dim connstr As StringPrivate Sub Command1_Click()
Dim MyPara
connstr = "Provider=SQLOLEDB;DATA SOURCE=127.0.0.1;UID=sa;PWD=123456;DATABASE=mytesttb"
cmd.ActiveConnection = connstr
cmd.CommandText = "mytb 'id',10"
cmd.CommandType = 4
cmd.Prepared = True
Set MyPara = cmd.CreateParameter("totalcount", 2, 4)
cmd.Parameters.Append MyPara
cmd.Execute
Dim totalcount
totalcount = cmd(0)
MsgBox totalcount
Set cmd = Nothing
End Sub为什么调试时总是说cmd.Execute这句“语法错误或违反访问规则”呢？

Answer 1

改一下连接字符串connstr = "Provider=SQLOLEDB.1;Password=123456;Persist Security Info=False;User ID=sa;Initial Catalog=mytesttb;Data Source=127.0.0.1"