mi da questo errore evidenziando dbCon.Open()

Si è verificato un errore mentre si cercava di stabilire una connessione con il server. Quando ci si connette a SQL Server 2005, questo errore potrebbe essere provocato dal fatto che l'SQL Server non ammette connessioni remote sotto le impostazioni predefinite. (provider: Provider TCP, error: 0 - Impossibile stabilire la connessione. Risposta non corretta della parte connessa dopo l'intervallo di tempo oppure mancata risposta dall'host collegato.)

questo è il codice

Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
Dim sql As String = "Data Source=xx.xx.xx.146,1433;Network Library=DBMSSOCN;Initial Catalog=navi;User ID=nomeutente;Password=aereo;"
Dim dbCon As New SqlConnection(sql)
Dim dbAdp As New SqlDataAdapter
Dim dbData As New DataSet
dbAdp.SelectCommand = New SqlCommand
dbAdp.SelectCommand.Connection = dbCon
dbAdp.SelectCommand.CommandText = "Select * " & " FROM Artico " dbAdp.SelectCommand.CommandType = CommandType.Text
dbCon.Open()
dbAdp.Fill(dbData, "Artico")
dbCon.Close()
DataGridView.AutoGenerateColumns = True
DataGridView.DataSource = dbData
DataGridView.DataMember = "Artico" End Sub