Here's an extremely helpful technique for automatically building
connect strings:

Create a file on your desktop called test.udl

Dbl-click it and you will see a dialog that lets you build a
connection to your database.

Build the connection and test it.

Select OK to close the dialog.

Now, open the file test.udl with Notepad and you will see a perfectly
formed connection string!

--- In outlook-dev@y..., "Smith, NathanX Y" <nathanx.y.smith@i...>
wrote:
>
> using ado...
>
> dim cn as connection
> set cn=new adodb.connection
>
> cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=<PathOfMDBFile>;"
>
>
> Nathan Smith
> C:602.502.3606
> T:480.552.3430
>
>
> -----Original Message-----
> From: OChavez@B... [mailto:OChavez@B...]
> Sent: Thursday, February 08, 2001 1:21 PM
> To: outlook-dev@y...
> Subject: RE: Outlook connect to DataBase without creating DSN
>
>
> I need work with Access 2000.
>
> Oscar Chavez Nicolau
>
>
>
> -----Mensaje original-----
> De: Smith, NathanX Y [mailto:nathanx.y.smith@i...]
> Enviado el: Thursday, February 08, 2001 12:48 PM
> Para: 'outlook-dev@y...'
> Asunto: RE: Outlook connect to DataBase without creating DSN
>
>
> what type of database are you using?
>
> Nathan Smith
> C:602.502.3606
> T:480.552.3430
>
>
> -----Original Message-----
> From: OChavez@B... [mailto:OChavez@B...]
> Sent: Thursday, February 08, 2001 7:43 AM
> To: outlook-dev@y...
> Subject: Outlook connect to DataBase without creating DSN
>
>
> How I can connect from outlook to a database without creating a DSN
> in each it computer????. This due to the quantity of users (600).
>
>
> Dim strUser
> Dim strPass
> Mypromt="dbDriverCompleteRequired"
> Myconn="ODBC;DSN=Proy" 'How I can define the access in this
> step
> strUser = ""
> strPass = ""
> Dim dbUseODBC
> Set designada = Item.GetInspector.ModifiedFormPages
> ("P.2").controls("design")
> dbUseODBC = 1
> dbOpenSnapshot = 4
> Set dbe = Item.Application.CreateObject("DAO.dbEngine.35")
> Set wrkODBC = dbe.CreateWorkspace("ODBCWorkspace", strUser,
> strPass , dbUseODBC)
> dbe.Workspaces.Append wrkODBC
> Set conDB = wrkODBC.OpenConnection("Connection1", MyPrompt, ,
> MyConn)'How I can define the access in this step
> strSQL = "Select"
> strSQL = strSQL & "from design;"
> Set Punterodesignada = conDB.OpenRecordset(strSQL,
> dbOpenSnapshot)
>
> Oscar Chávez Nicolau
>
>
>
>
> --------------------------------------------------------------------
<e|-
> Manage your outlook-dev list subscription by sending a blank
message to the
> appropriate address:
>
> Unsubscribe: mailto:outlook-dev-unsubscribe@y...
> Switch to web: mailto:outlook-dev-nomail@y...
> Switch to digest: mailto:outlook-dev-digest@y...
> Switch to single messages: mailto:outlook-dev-normal@y...
>
> Post or download Outlook VBA and other samples at
> http://groups.yahoo.com/group/outlook-dev/files
>
> --------------------------------------------------------------------
|e>-