Connect Property and OpenConnection Example: DSN Connection Using OpenConnection

The following example establishes an ODBC connection using the OpenConnection method but requires the user to provide all connection information. In this case the example prints the resulting Connect property to the Immediate window.

Dim cn As rdoConnection
Dim en As rdoEnvironment

Set en = rdoEnvironments(0)
Set cn = en.OpenConnection(dsName:="WorkDB", _
    Prompt:=rdDriverCompleteRequired)
debug.print cn.Connect