Set MetaData Values in 4.0

System

I'm trying to set the value of an Assets MetaData in MB 4.0. After the code executes, I check the asset's MetaData, and nothing changed. Does anyone have any ideas as to what could be going wrong? I've included a code snippet below.

Thanks!

Set objAsset = mediaBinServerObject.GetAsset(strTargetId)

' Update metadata of asset with approved info
Dim MD_ID_Approved
Dim objDataValue, objMetadata, objMDDefinition
Dim colMetadata

Set colMetaData = mediaBinServerObject.CreateObjectCollection

MD_ID_Approved = MetaDataId("Approved")

Set objMDDefinition = mediaBinServerObject.GetMetaDataDefinition(MD_ID_Approved)
Set objMetaData = objMDDefinition.CreateMetaDataValue
Set objDataValue = mediaBinServerObject.CreateDataValue

objDataValue.Value = True
objMetadata.SetValue objDataValue
colMetadata.Add objMetadata

objAsset.ReviseMetadata colMetadata