free host database bağlantısı

byethost database bağlanmaya çalışıyom bağlantı hatası veriyo

 (provider: Named Pipes Provider, error: 40 - Could not open a connection to SQL Server)

Imports System.Data.SqlClient

  Dim objConnection As New SqlConnection("server=sql200.byethost12.com;database=b12_12301464_deneme;user id=b12_12301464;password=pass")

    Dim objDataAdapter As New SqlDataAdapter()
    Dim objDataSet As New DataSet()


 objDataAdapter.SelectCommand = New SqlCommand()
        objDataAdapter.SelectCommand.Connection = objConnection
        objDataAdapter.SelectCommand.CommandText = "Select * From tablo1 Order By no"
        objDataAdapter.SelectCommand.CommandType = CommandType.Text
        objConnection.Open()
        objDataAdapter.Fill(objDataSet, "tablo1")
        objConnection.Close()

        data1.AutoGenerateColumns = True
        data1.DataSource = objDataSet
        data1.DataMember = "tablo1"