[VB.NET] Errore connessione database

[wjzard]

Ciao tutti ho questo errore su questo codice come mai ?

Si è verificato un errore di rete o specifico dell'istanza mentre si cercava di stabilire una connessione con SQL Server. Il server non è stato trovato o non è accessibile. Verificare che il nome dell'istanza sia corretto e che SQL Server sia configurato in modo da consentire connessioni remote. (provider: Named Pipes Provider, error: 40 - Impossibile aprire una connessione a SQL Server)

Public Class Form1
  Private Sub btnConnetti_Click(
        ByVal sender As System.Object,
        ByVal e As System.EventArgs) _
        Handles btnConnetti.Click
    If Me.SqlConnection1.State = 0 Then
      Me.SqlConnection1.ConnectionString =
        "Integrated Security=SSPI;" &
        "Persist Security Info=False;" &
        "User ID='sa';" &
        "Initial Catalog=03_Customers_and_Orders;" &
        "Data Source=HP;" &
        "Initial File Name=''"
      Me.SqlConnection1.Open()
    End If
    Me.Label1.Text = "Connesso"
  End Sub

  Private Sub btnDisconnetti_Click(
        ByVal sender As System.Object,
        ByVal e As System.EventArgs) _
        Handles btnDisconnetti.Click
    If Me.SqlConnection1.State = 1 Then
      Me.SqlConnection1.Close()
    End If
    Me.Label1.Text = "Disconnesso"
  End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class