Dim iCmd As ADODB.CommandDim iConc$iConc=数据库连接字符串Set iCmd = New ADODB.CommandWith iCmd .ActiveConnection = iConc .CommandType = adCmdStoredProc .CommandText = "你的存储过程" .Parameters.Refresh .Parameters("@参数")=值 .ExecuteEnd WithEnd Sub