Check Connection Database VB.NET

Imports System.Data.Odbc
Imports MySql.Data.MySqlClient

Public Class Form3

    Const DSN = "DSN=namedsn"  'input the name dsn on odbc name , masukan nama data source name yang ada pada odbc
    Dim connyogithesymbian As OdbcConnection

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Try
            connyogithesymbian = New OdbcConnection(DSN)
            connyogithesymbian.Open()
            MsgBox("Server is ready" _
                   & vbNewLine & "Lets login now", vbInformation, "INFORMATION")
        Catch ex As Exception
            MsgBox("Server is not ready" _
                   & vbNewLine & "check internet connection", vbCritical, "ALERT SYSTEM")
' https://yogithesymbian.blogspot.com
' https://www.yogi-aw.id

        End Try
    End Sub

End Class