Open DAO database

[teel73]

I am simply trying to use the openDatabase method to connect to my database from MS Word. Then once I connect, use the objects in that database to manipulate some data. I don't know why my code it isn't working. I have searched and searched for answers but to no avail. Can someone please help me out with this. Here is my code:

Dim DBdaAgg As Database
Dim wrkSec As Workspace
DBEngine.SystemDB = "[URL="file://\\Fanniemae.com\corp\DC\Shared\CSS\GuardServices\TechTeam\auditSecurity.mdw"]R:\TechTeam\auditSecurity.mdw[/URL]"
DBEngine.DefaultUser = "e3utbl"
DBEngine.DefaultPassword = "elmo1zoi"
Set wrkSec = DBEngine.Workspaces(0)
Set DBdaAgg = wrkSec.OpenDatabase("[URL="file://\\Fanniemae.com\corp\DC\Shared\CSS\GuardServices\TechTeam\AuditDocsMgmt.mdb"]R:\TechTeam\AuditDocsMgmt.mdb[/URL]")
DBdaAgg.Close
wrkSec.Close
Set DBdaAgg = Nothing
Set wrkSec = Nothing

When I run this code I get a run-time error '3033': You do not have the necessary permissions to use this .........

All of the information is correct. I don't understand. Please help.