.net - 无法打开 ADODB 连接

Question

我正在尝试使用以下功能打开连接：

Public cn1 As New ADODB.Connection
    'Sub to open connection to database 
    Public Function OpenConnection(ByVal strOpenConnectionString As String, _
                                   Optional ByVal lngOpenConnectionTimeout As Long = 3600) As Long
        With cn1
            .CursorLocation = ADODB.CursorLocationEnum.adUseClient
            .Mode = ADODB.ConnectModeEnum.adModeUnknown
            .ConnectionTimeout = lngOpenConnectionTimeout
            .CommandTimeout = lngOpenConnectionTimeout
            .ConnectionString = strOpenConnectionString
        End With
        Try
            cn1.Open()
        Catch ex As Exception
            MsgBox(ex.ToString())
        End Try

        OpenConnection = cn1.State
    End Function

我正在为我的连接使用 Windows 身份验证，我的连接字符串是：

"Integrated Security=SSPI;Initial Catalog=Test;Data Source=PEDRAM-PC\PEDRAM"

当我使用 sql 连接时，我可以轻松连接，但我需要使用 ado db 对象进行连接，因为它是我的公司代码。我得到以下异常：

谁能告诉我我做错了什么？

Answer 1

您将需要为 ADODB 使用不同的连接字符串。尝试这个

Provider=SQLOLEDB;Initial Catalog=Test;Data Source=PEDRAM-PC\PEDRAM;Trusted_connection=yes;