如何在VB.NET中将故障转移伙伴添加到连接字符串

Imports System.Data.SqlClient

Module Module1
    Sub Main()
        Dim builder As New SqlConnectionStringBuilder()
        builder.DataSource = "your_primary_server"
        builder.InitialCatalog = "your_database"
        builder.UserID = "your_username"
        builder.Password = "your_password"
        builder.MultiSubnetFailover = True
        builder.FailoverPartner = "your_failover_partner_server"

        Dim connectionString As String = builder.ConnectionString

        Using connection As New SqlConnection(connectionString)
            Try
                connection.Open()
                Console.WriteLine("Connected to the database.")
            Catch ex As Exception
                Console.WriteLine("Error connecting to the database: " & ex.Message)
            End Try
        End Using

        Console.ReadLine()
    End Sub
End Module