dataconnectionCheck.vb

        ''' <summary>
        ''' Determines whether  database connection valid [the specified connection string].
        ''' </summary>
        ''' <param name="ConnectionString">The connection string.</param>
        ''' <returns>
        ''' <c>true</c> if [is database connection valid] [the specified connection string]; otherwise, <c>false</c>.
        ''' </returns>
        Public Function IsDatabaseConnectionValid(ByVal ConnectionString As String) As Boolean
            Try
                Using cn As New SqlClient.SqlConnection(ConnectionString)
                    cn.Open()
                    Return True
                End Using
            Catch Ex As Exception
                Return False
            End Try
        End Function

 'Use this to test your connection
 If Not ScriptAssist.Utilities.Helper.IsDatabaseConnectionValid(Options.ConnectionString_Shared) Then
        FixDataConnection()
 End If