VB.Net and MSDE Replication

[John]

I am trying to create the initial database from a snapshot on my SHED1
MS SQL server. Whenever I run the code below, I get the following
error:

'The subscription to publication 'SteelPMOSql1' has expired or does
not exist'

When I installed MSDE 2000, I did not set the install option to change
the security mode to SQL... Will this have any effect as I am using
DB_AUTHENTICATION below? Alternatively, any help on why this error
occurs would be appreciated.

Private Sub RunReplMerge()
Dim strPhase As String

'Try

mobjMerge = New SQLMERGXLib.SQLMerge

With mobjMerge
strPhase = "Setup"

.Publisher = "SHED1"
.PublisherDatabase = "SteelPMOSQL"
.PublisherLogin = "sa"
.PublisherPassword = ""
.PublisherSecurityMode =
SQLMERGXLib.SECURITY_TYPE.DB_AUTHENTICATION

.Publication = "SteelPMOsql1"

.Subscriber = "SHED2"
.SubscriberSecurityMode =
SQLMERGXLib.SECURITY_TYPE.DB_AUTHENTICATION
.SubscriberLogin = "sa"
.SubscriberPassword = ""
.SubscriberDatabase = "PERSONALPMO"
.SubscriberDatasourceType =
SQLMERGXLib.DATASOURCE_TYPE.SQL_SERVER

.SubscriptionType = SQLMERGXLib.SUBSCRIPTION_TYPE.PUSH

strPhase = "Initialize"
.Initialize()
strPhase = "Run"
.Run()
strPhase = "Terminate"
.Terminate()
End With
Exit Sub

End Sub
----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeed.com The #1 Newsgroup Service in the World! >100,000 Newsgroups
---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption =---