When trying to create Workspace, get error 3847

[Pierre Doré]

Original application in MS Access 2002. When migrated to A2007 the following
line

Set gWorkspace = CreateWorkspace ("ODBCWorkspace", "ACIIS_ADMIN",
"aciis18dev", dbUseODBC)
Note that this workspace was define in a seperate module:
Public gWorkspace As Workspace


generates the error message below:
:ODBCDirect is no longer supported. Rewrite the code to use ADO instead of
DAO. [3847]

Here is the code in full for this section:
Set gWorkspace = CreateWorkspace("ODBCWorkspace", "ACIIS_ADMIN",
"aciis18dev", dbUseODBC)

gWorkspace.DefaultCursorDriver = dbUseODBCCursor

Set db_ACIIS_ORACLE = gWorkspace.OpenDatabase("ACIIS", dbDriverComplete,
False, "ODBC;UID=" & "ACIIS_ADMIN" & ";PWD=" & "aciis8adm" &
";DSN=ACIIS_TEST")

 

[Pierre Doré]

Also note that I've added one reference that ADO required,ADO Ext. 2.8 for
DDL & Secrurity, as well I deleted one reference for Microsoft Access 12.0
object library as well as DAO 3.6 object library.

Any help very much appreciated.
Thx
Pierre

 

[Pierre Doré]

Actually I was not abel to remove Access 12.0 object library,even though I
had read that if using ADO u should remove that reference.

Also note that I've added one reference that ADO required,ADO Ext. 2.8 for
DDL & Secrurity, as well I deleted one reference for Microsoft Access 12.0
object library as well as DAO 3.6 object library.

Any help very much appreciated.
Thx
Pierre

Original application in MS Access 2002. When migrated to A2007 the following
line

Set gWorkspace = CreateWorkspace ("ODBCWorkspace", "ACIIS_ADMIN",
"aciis18dev", dbUseODBC)
Note that this workspace was define in a seperate module:
Public gWorkspace As Workspace


generates the error message below:
:ODBCDirect is no longer supported. Rewrite the code to use ADO instead of
DAO. [3847]

Here is the code in full for this section:
Set gWorkspace = CreateWorkspace("ODBCWorkspace", "ACIIS_ADMIN",
"aciis18dev", dbUseODBC)

gWorkspace.DefaultCursorDriver = dbUseODBCCursor

Set db_ACIIS_ORACLE = gWorkspace.OpenDatabase("ACIIS", dbDriverComplete,
False, "ODBC;UID=" & "ACIIS_ADMIN" & ";PWD=" & "aciis8adm" &
";DSN=ACIIS_TEST")