How To Invoke a Login Prompt When Opening an ADO Connection

MORE INFORMATION

To control a Data Provider's login prompt set the "Prompt" property exposed through the Properties collection of the Connection object to one of the four pre-defined constants or values as follows:

   adPromptAlways = 1
   adPromptComplete = 2
   adPromptCompleteRequired = 3
   adPromptNever = 4
				

The constants specify whether to always prompt, prompt if more information is needed, prompt if more information is needed but optional parameters are not allowed, or never prompt.

Different Login prompts will be presented depending on what Data Provider is specified in the Connection's Provider property. The default Data Provider for ActiveX Data Objects (ADO) is the OLE DB Provider of ODBC (MSDASQL).

Sample Code

Example 1

   Dim cn as ADODB.Connection
   Set cn = New ADODB.Connection
   With cn
      .Properties("Prompt") = adPromptAlways
      .Open
   End With
				

In Example 1, when the Open method is called, the ODBC Login prompt appears every time regardless of what the ConnectionString property may hold.

Example 2

   Dim cn as ADODB.Connection
   Set cn = New ADODB.Connection
   With cn
      .Provider = "SQLOLEDB"
      .Properties("Prompt") = adPromptComplete
      .ConnectionString = "DATA SOURCE=<server name>;"
      .Open
   End With
				

In Example 2, the Provider property is set to "SQLOLEDB", so the OLE DB Provider for SQL Server Prompt is presented to the user instead of the ODBC Login Prompt.

The constants can be found in the Adovbs.inc file. By default this file is located in the \\Program Files\Common Files\System\ADO subdirectory.