'-- Create the DatabaseMigrator instance

If _SQLUserName.Length = 0 Then

_DatabaseSetup = New DatabaseMigrator(_SQLServer, True, Me)

Else

_DatabaseSetup = New DatabaseMigrator(_SQLServer, False, Me, _SQLUserName, _SQLPassword)

End If

'-- Create the DatabaseTargetName for Database1

Dim loDTN_Database1 As New DatabaseTargetName("Database1")

loDTN_Database1.NameOnServer = "Database1"

'-- Create the DatabaseTargetName for Database2

Dim loDTN_Database2 As New DatabaseTargetName("Database2")

loDTN_Database2.NameOnServer = "Database2_Renamed"

'-- Create the DatabaseTargetName for Database3

Dim loDTN_Database3 As New DatabaseTargetName("Database3")

loDTN_Database3.NameOnServer = "Database3"

'-- Create array to hold the DatabaseTargetName objects

Dim laDTNames(2) As DatabaseTargetName

laDTNames(0) = loDTN_Database1

laDTNames(1) = loDTN_Database2

laDTNames(2) = loDTN_Database3

'-- Begin the deployment of the databases

_DatabaseSetup.DeployMetaData(_Package, "mypassword", laDTNames)