Check if an MySQL server is alive.

MySqlServerAlive.vb

Imports MySql.Data.MySqlClient

Public Function IsMySqlServerAvailable(ByVal dbCnxStr As String) As Boolean
  Try
        Using srvrConnection = New MySqlConnection(dbCnxStr)
            Try
                srvrConnection.Open()
                Return True
            Catch ex As MySqlException
                Return False
            End Try
        End Using
 Catch ex as ArgumentException
    Return False;
 End Try
End Function