Imports System.Data.SqlClient
 
Public Class Form1
    'IP = IP de donde se encuentra el SQL al que se decea conectar
    'BaseDeDatos = Base de datos con la que deceamos trabajar
    'userlogin = User con el que deceamos loguear comunmente es "sa"
    'contraseña = contraseña para loguearnos
    Dim conexion = "data source = IP; initial catalog = BaseDeDatos; user id = userlogin; password = contraseña"
 
    Public Sub verificarconexion()
        Dim ss As SqlConnection = New SqlConnection(conexion)
        Try
            ss.Open()
            ss.Close()
        Catch
            MsgBox("Error en la conexion:" & vbNewLine & "El servidor, puede encontrarse en mantenimiento.", MsgBoxStyle.Information, "Conexion Fallida")
            ss.Close()
            End
        Finally
            ss.Close()
        End Try
    End Sub
 
End Class