Following is my code to create partition, when i run this script in DTs it is
creating partition
but is not assigning the fact/source table. Help please,

Dim sASDB, sCube, sDB, sASrv, sPartition
Dim dsoSrv, dsoDB, dsoCube, dsoPartition, dsoPartitionNew
Dim sLQuote, sRQuote
Dim sRow
DIM sFact
sASrv = "SRV015"
sASDB = "Dev"
sCube = "PRICING"
sRows = 9343024


Set dsoSrv = CreateObject("DSO.Server")
dsoSrv.Connect sASrv
Set dsoDB = dsoSrv.MDStores(sASDB)
Set dsoCube = dsoDB.MDStores(sCube)

Set dsoPartition = dsoCube.MDStores (dsoCube.MDStores.Count)

Set dsoPartitionNew = dsoCube.MDStores.AddNew(sPartition)
dsoPartition.Clone dsoPartitionNew
sLQuote = dsoPartition.DataSources(1).OpenQuoteChar
sRQuote = dsoPartition.DataSources(1).CloseQuoteChar

sFact = sLQuote & "dbo" & sRQuote & "." & sLQuote & "FACT_MEXBAS" &
sRQuote

dsoPartitionNew.SourceTable = sFact
dsoPartitionNew.EstimatedRows = sRows
dsoPartitionNew.Update