Dim cmdMatched As New ADODB.Command Dim dblTest As Double With cmdMatched .ActiveConnection = gobjDataAccess.objConn .CommandType = adCmdStoredProc .CommandText = "up_PercentageMatchedGLTrans" .Parameters.Append .CreateParameter("@ReturnPercentChar", adVarChar, adParamOutput, 20) .Parameters.Append .CreateParameter("@ReturnPercentNumb", adDecimal, adParamOutput) End With cmdMatched.Execute dblTest = cmdMatched.Parameters("@ReturnPercentNumb") Set cmdMatched = Nothing