在vb.net项目中，如何检查SQL连接是否仍然可用，并结束所有处理？

Imports System.Data.SqlClient

Public Class Form1
    Private Sub CheckSqlConnection()
        Dim connectionString As String = "Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password"
        Dim connection As New SqlConnection(connectionString)

        Try
            connection.Open()
            ' 连接成功，执行相关操作
            ' ...

        Catch ex As SqlException
            ' 捕获到SqlException异常，连接不可用
            ' 根据异常的ErrorCode属性判断具体错误类型
            If ex.ErrorCode = -2 Then
                ' 超时错误
                ' 处理超时错误的逻辑
                ' ...
            Else
                ' 其他错误类型
                ' 处理其他错误的逻辑
                ' ...
            End If

        Catch ex As Exception
            ' 捕获到其他异常
            ' 处理其他异常的逻辑
            ' ...

        Finally
            ' 关闭连接并释放资源
            connection.Close()
            connection.Dispose()
        End Try
    End Sub
End Class