When you are playing arround with MDD files you may need to add or unlock the version. This simple code shows you how to do it.
' ****************************************
' Designed by : Smarter Dimensions
' Last Updated : 4th July 2009
' Sub to unlock a MDD version.
' ****************************************
Dim oMDM,oVar,oElement,sLabel
Set oMDM = CreateObject("MDM.Document")
oMDM.Open("c:\temp\short_drinks.mdd", , openConstants.oREADWRITE)
oMDM.Versions.AddNew()
oMDM.Save()