使用 SMO 在服务器之间复制表 - 不同的排序规则

我苦于寻找一种使用 VB.NET 和 SMO 在两个服务器之间复制具有不同排序规则的表的方法。 这是我的解决方案（我用下划线标出了我添加的两行代码，其余代码我在网上找到的）

	Dim source_server_conn As New ServerConnection("OMNIOSLSSQ006\A1")
        source_server_conn.LoginSecure = False
        source_server_conn.Login = "username"
        source_server_conn.Password = "password"
        Dim source_server As New Server(source_server_conn)

        Dim reciever_server_conn As New ServerConnection("OMNIOSLSSQ001\A2")
        reciever_server_conn.LoginSecure = False
        reciever_server_conn.Login = "username"
        reciever_server_conn.Password = "password"
        Dim reciever_server As New Server(reciever_server_conn)

	' names of the tables involved
        Dim newTable_name As String = "name_of_table_to_copy_to"
        Dim tabell_source_name As String = "name_of_table_to_copy_from"

        Dim db_source As New Database
        db_source = source_server.Databases("from_database")

        Dim db_reciever As New Database
        db_reciever = reciever_server.Databases("to_database")

	' delete table if exists
        If db_reciever.Tables.Contains(newTable_name) Then
            db_reciever.Tables(newTable_name).Drop()
        End If

        Dim newTable As Table = New Table(db_reciever, newTable_name)

        Dim tabell_source As Table = db_source.Tables(tabell_source_name)

	' add columns to new table
        For Each col As Column In tabell_source.Columns
	    ' *** important... this changes collation of smo.table.column 
            ' you copy from, the original table in the database is not changed
            col.Collation = "Danish_Norwegian_CI_AS"
            col.Alter()
	    ' *** end of collation change
            Dim lCol As Column = New Column(newTable, col.Name, col.DataType)
	    ' set collation to new table column
            lCol.Collation = "Danish_Norwegian_CI_AS"
            lCol.Nullable = col.Nullable
            newTable.Columns.Add(lCol)
        Next
        newTable.Create()

        ConnSource = New SqlConnection(Me.ConnSource)
        ConnSource.Open()
        ConnReciever = New SqlConnection(Me.ConnReciever)
        ConnReciever.Open()

        Dim CommandSource As SqlCommand = New SqlCommand("Select * FROM " & tabell_source_name, ConnSource)
        CommandSource.CommandTimeout = 1600

        Dim DataReaderSource As SqlDataReader = CommandSource.ExecuteReader

        Dim BulkCopyReciever As SqlBulkCopy = New SqlClient.SqlBulkCopy(Me.ConnReciever, SqlBulkCopyOptions.KeepIdentity)
        BulkCopyReciever.DestinationTableName = newTable_name
        BulkCopyReciever.BulkCopyTimeout = 1600

        Try
            BulkCopyReciever.WriteToServer(DataReaderSource)
        Catch exSQL As SqlClient.SqlException
            MessageBox.Show(exSQL.ToString, "Bulk Copy Error")
        Catch ex As Exception
            MessageBox.Show(ex.ToString, "Bulk Copy Error - General")
        Finally
            DataReaderSource.Close()
            BulkCopyReciever.Close()
        End Try