sql - SQL Server 2008 への接続における VB.Net の DataAdapter の問題

Question

SQL Server 2008 へのローカル接続でトラブルを実験しています。次の特定のエラーがスローされます。SQL Server への接続を確立中に、ネットワーク関連またはインスタンス固有のエラーが発生しました。サーバーが見つからないか、アクセスできませんでした。インスタンス名が正しいこと、および SQL Server がリモート接続を許可するように構成されていることを確認します (エラー 40)。SQL サービスとファイアウォール ソリューションに関するほとんどのソリューションを試しました。問題はソース コードに固有のものだと思います。それは：

Private Sub cargar_Combo(ByVal ComboBox As ComboBox, ByVal sql As String)
Dim strConexion As String = "Data Source=Angel-PC\SQLEXPRESS1;Initial Catalog=sistemaReferencias;Integrated Security=True"
    Dim conexion As New SqlConnection(strConexion)
    Try
       conexion.Open()
        Dim cmd As New SqlCommand(sql, conexion)
        Dim da As New SqlDataAdapter(cmd)
        Dim ds As New DataSet
        da.Fill(ds)
        ComboBox.DataSource = ds.Tables(0)
        ComboBox.DisplayMember = ds.Tables(0).Columns(1).Caption.ToString
        ComboBox.ValueMember = ds.Tables(0).Columns(0).Caption
    Catch ex As Exception
        MessageBox.Show(ex.Message.ToString, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    Finally
        If conexion.State = ConnectionState.Open Then
            conexion.Close()
        End If
    End Try
End Sub

別のメソッドで使用したため、文字列接続が正しいことはわかっています。エラーは具体的には「da.Fill(ds)」行で発生します。これらは、提供できるヘルプに本当に感謝する基本です。