Connect to the ADO using an ODBC connection (i.e. RODBA).  The connection string and its elements are not supported.  Many websites give information on the use of the ADO.  



The following link will direct you to a website with more information on ADO:



http://msdn2.microsoft.com/en-us/library/ms681025.aspx


The following are examples of connection strings from the second website regarding the usage of the ADO.  



'BeginConnectionStringVB



   'To integrate this code replace

   'the database, DSN or Data Source values

   

Public Sub ConnectionStringX()



  Dim Cnxn1 As ADODB.Connection

  Dim Cnxn2 As ADODB.Connection

  Dim Cnxn3 As ADODB.Connection

  Dim Cnxn4 As ADODB.Connection



   ' Open a connection without using a Data Source Name (DSN)

  Set Cnxn1 = New ADODB.Connection

  Cnxn1.ConnectionString = "driver={SQL Server};server=srv;uid=sa;pwd=pwd;database=Pubs"

  Cnxn1.ConnectionTimeout = 30

  Cnxn1.Open

  

   ' Open a connection using a DSN and ODBC tags

  Set Cnxn2 = New ADODB.Connection

  Cnxn2.ConnectionString = "DSN=Pubs;UID=sa;PWD=pwd;"

  Cnxn2.Open

  

   ' Open a connection using a DSN and OLE DB tags

  Set Cnxn3 = New ADODB.Connection

  Cnxn3.ConnectionString = "Data Source=Pubs;User ID=sa;Password=pwd;"

  Cnxn3.Open





   ' Open a connection using a DSN and individual

   ' arguments instead of a connection string

  Set Cnxn4 = New ADODB.Connection

  Cnxn4.Open "Pubs", "sa", "pwd"



   ' Display the state of the connections using

   ' GetState function from below

  MsgBox "Cnxn1 state: " & GetState(Cnxn1.State) & vbCr & _

     "Cnxn2 state: " & GetState(Cnxn2.State) & vbCr & _

     "Cnxn3 state: " & GetState(Cnxn3.State) & vbCr & _

     "Cnxn4 state: " & GetState(Cnxn4.State)



  Cnxn4.Close

  Cnxn3.Close

  Cnxn2.Close

  Cnxn1.Close



End Sub



Public Function GetState(intState As Integer) As String



  Select Case intState

     Case adStateClosed

        GetState = "adStateClosed"

     Case adStateOpen

        GetState = "adStateOpen"

  End Select



End Function

'EndConnectionStringVB

Disclaimer: We provide programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes you are familiar with Microsoft Visual Basic and the tools used to create and debug procedures. Our Customer Support can help explain the functionality of a particular procedure, but we will not modify, or assist you with modifying, these examples to provide additional functionality. If you are interested in learning more about the VBA and API modules, contact your account manager.