Create a Replication with DMO

[Akademos]

Hi,
i want to create a complete Replication (Publisher +Subscription) with DMO.
I'm using following code:

Dim server as new SQLServer2
Dim db as ReplicationDatabase2
Dim regSub as new RegisteredSubscriber
Dim secName as string

Dim Tbl as ReplicationTable2
Dim mergeSub as new MergeSubscription2
Dim mergePub as new MergePublication2
'Dim mergeArt as new MergeArticle2

Dim i as Integer

server.Connect "SERVER01", "sa"

secName = "SERVER02"
set db = server.Replication.ReplicationDatabases("DBMergeRepl")

regSub.Name = secName

server.Replication.Publisher.RegisteredSubscribers.Add regSub

regSub.Name = secName
mergeSub.Subscriber = secName
mergeSub.SubscriptionDB = "DBMergeRepl"
'mergeSub.SubscriptionType = SQLDMOMergeSubscriber_Default

mergePub.Name = "DBMergeReplMerge01"
mergePub.PublicationAttributes = SQLDMOPubAttrib_AllowPush
db.MergePublications.Add mergePub
mergePub.MergeSubscriptions.Add mergeSub

mergeSub.MergeSchedule.BeginAlter
mergeSub.MergeSchedule.ActiveStartDate = 20011012
mergeSub.MergeSchedule.ActiveStartTimeOfDay = 144500
mergeSub.MergeSchedule.ActiveEndDate = 99999999
mergeSub.MergeSchedule.ActiveEndTimeOfDay = 235959
mergeSub.MergeSchedule.FrequencyType = SQLDMOFreq_OneTime
mergeSub.MergeSchedule.DoAlter

for Each Tbl In db.ReplicationTables
Dim mergeArt as new MergeArticle2
mergeArt.Name = Tbl.Name
mergeArt.SourceObjectName = Tbl.Name
mergeArt.SourceObjectOwner = Tbl.Owner
mergePub.MergeArticles.Add mergeArt
set mergeArt = nothing
next





If i run this a publication is created, a subscriber is created, articles are add to the mergereplication but no subscription is created.

Does anyone know what i done wrong? I think i have gone the way the SQL DMO help tells me

thanks

akademos