bueno yo decidido a probar tu error y como puesto lo esto menzando a usar lo resolvi de la siguiente manera
Código:
Imports System.Data.SqlClient
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim oSQLConn As SqlConnection = New SqlConnection()
oSQLConn.ConnectionString = "Server=servidor;Database=base;User ID=user;Password=pass;Trusted_Connection=False"
oSQLConn.Open()
MessageBox.Show("Conectado")
Catch oExcep As SqlException
MessageBox.Show("Error al conectar con datos" & _
ControlChars.CrLf & _
oExcep.Message & ControlChars.CrLf & _
oExcep.Server)
End Try
End Sub
End Class
nos vemos espero te sirva el ejemplo..