una de las formas de conectarse a una BD SQL es:
Cita: Dim connString as string = ""Data Source=" & NOMBRE_SERVIDOR_SQLSERVER & ";Network Library=DBMSSOCN;Initial Catalog=NOMBRE_BASE;User Id=" & NOMBRE_USUARIO & ";Password=" & EL_PASSWORD & ";"
Dim Conn As New SqlClient.SqlConnection
Dim cmd As New SqlClient.SqlCommand
Try
Conn.ConnectionString = connString
Conn.Open()
cmd.Connection = Conn
cmd.CommandText = Tu_Consulta
cmd.ExecuteNonQuery()
Catch ex As Exception
'código de captura error
'......
Finally
Conn.Close()
End Try
saludos