Pues yo las conexiones las hago de esta manera
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
Espero te sirva (: