adodb.command.activeconnection报错

[SUMAYLIN]

这段时间碰到一个奇怪的问题，ADODB连接数据库（SQL）,执行查询都没问题，但想执行存储进程。
Set AdoCon = CreateObject("ADODB.Connection")
Set errLoop = CreateObject("ADODB.Error")

'Connect to database
On Error GoTo DatabaseError
AdoCon.ConnectionString = dsnSQLStr
AdoCon.Open
Set AdoCmd = CreateObject("ADODB.Command")
AdoCmd.ActiveConnection = AdoCon

strSQL = "{Call " & GET_PAGE_SP_NAME & "( " & page_number & ", " & VISIBLE_ROWS & ") }"

Set AdoCmd = CreateObject("ADODB.Command")
AdoCmd.ActiveConnection = AdoCon
AdoCmd.CommandText = strSQL
AdoCmd.CommandType = adoCmdStoredProc
语句执行到 AdoCmd.ActiveConnection = AdoCon就报 sql state:01000,Native Error:5701
错误，有哪位高手碰到

[VB业余爱好者]

错误详细信息是啥？只有个错误代码？

[王二.麻子]

Option Explicit
Dim AdoCon As Object
Dim AdoCmd As Object
Dim errLoop As Object
Dim dsnSQLStr As String
Private Sub Form_Load()
Set AdoCon = CreateObject("ADODB.Connection")
Set errLoop = CreateObject("ADODB.Error")

'Connect to database
dsnSQLStr = "DBQ=D:\管理项目3\练习数据库1.mdb;DefaultDir=D:\管理项目3;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;FILEDSN=C:\Users\Administrator\Documents\a.dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"
AdoCon.ConnectionString = dsnSQLStr
AdoCon.Open
Set AdoCmd = CreateObject("ADODB.Command")
AdoCmd.ActiveConnection = AdoCon
End Sub

没问题呀
你的错误处理程序干扰了把