Sub New_Release(relName, StartDate, EndDate)
    'StartDate are EndDate of type Date

    Dim RelFolFact 'ReleaseFolderFactory
    Dim RelFol 'ReleaseFolder
    Dim RelFact 'ReleaseFactory
    Dim tdc

    Set tdc = TDConnection
    Set RelFolFact = tdc.ReleaseFolderFactory
    Set RelFol = RelFolFact.Item(ReleaseFolder_Fields("RF_ID").Value)
    Set RelFact = RelFol.ReleaseFactory

    Set Rel = RelFact.AddItem(Null)

    'Required fields
    Rel.Name = relName
    Rel.StartDate = StartDate
    Rel.EndDate = EndDate
    Rel.Post

End Sub