CurrentDB Error

[darkhat01]

I am having a problem with setting the Data Source when it is set to CurrentDB. If I set the path to c:\test\mydatabase.mdb it works fine. Why will this not work, does anyone have an idea?

Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")

    objConnection.Open _
    "Provider = Microsoft.Jet.OLEDB.4.0; " & _
    "Data Source = CurrentDB" 'Location of Current database

objRecordSet.Open "SELECT * FROM Answers1", _
    objConnection, adOpenStatic, adLockOptimistic

Set objFSO = CreateObject("Scripting.FileSystemObject") 'Create FOS Object
Set objFile = objFSO.OpenTextFile(strFilepath)          'Open file to Import

Thank you,

Darkhat

 

[PHV]

What about this ?
"Data Source = " & CurrentDB.Name 'Location of Current database


Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[darkhat01]

Thanks PHV... Sorry that is took so long to get back to you... I had an emergancy and have been out of town for awhile... I am going to try this now.

Darkhat01

 

[darkhat01]

PHV,

That worked like a charm....

Thank you.