dim prm as ADODB.Parameter
dim cmd as ADODB.command
Set cmd = New ADODB.Command
With cmd
Set .ActiveConnection = myConnectionObject
.CommandType = adCmdStoredProc
.CommandText = myProcedureName
Set prm = .CreateParameter("myParam", adVarChar, adParamInput, 12)
.Parameters.Append prm
.Parameters("myParam").Value = ParamExample1
.Execute
end With