连接到SQL Server 2008时VB.Net上的DataAdapter出现问题

我正在尝试与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）”行，这些是最基本的

---

我真的很感激你能提供的任何帮助

转到您的桌面。右键单击并添加一个新的文本文件“test.txt”。 将文本文件重命名为test.udl，您将得到一个警告，请接受它。 双击test.udl，您将有一个交互式对话框来配置连接字符串

---

配置连接字符串后。单击保存。右键单击test.udl文件并在记事本中打开。这将为您提供需要放入应用程序的连接字符串。

转到您的桌面。右键单击并添加一个新的文本文件“test.txt”。 将文本文件重命名为test.udl，您将得到一个警告，请接受它。 双击test.udl，您将有一个交互式对话框来配置连接字符串

---

配置连接字符串后。单击保存。右键单击test.udl文件并在记事本中打开。这将为您提供需要放入应用程序的连接字符串。

在执行

填充之前，您确定需要打开连接吗？

？据我所知，Microsoft支持的地址：此数据源似乎可疑：

数据源=Angel PC\SQLEXPRESS1

。结尾1是什么？通常SQLExpress安装程序会创建一个实例，但数据源没有问题，只有两个实例，我认为第二个实例不存在代码问题。在命令提示符下尝试并键入

SQLCMD-s Angel PC\SQLEXPRESS1

，查看您的连接是否没有错误是否确实需要在执行

填充之前打开连接

？据我所知，Microsoft支持：此数据源似乎可疑：

数据源=Angel PC\SQLEXPRESS1

。结尾1是什么？通常SQLExpress安装程序会创建一个实例，但数据源没有问题，只有两个实例，我认为第二个实例不存在代码问题。在命令提示符下尝试并键入

SQLCMD-s Angel PC\SQLEXPRESS1

，查看连接是否正确