I have this in my code:
dim dbsData as DAO.database
Set dbsData = OpenDatabase(strPathFileName)

where strPathFileName = C:\My
Documents\Special\RozGranitz\TotalTrialManagementData.mdb

I am receiving....

The following Error has Occurred:
The Jet VBA file (VBAJET.dll for 16-bit versions, or VBAJET32.dll for 32-bit
versions) failed to initalize when called. Try reinstalling the application
that returned the error. (3447)

Searched on www.deja.com results in issues with VB 5.0 and VB 6.0 and a
couple of files to include when distributing.

I am using Access 2000 on two different computers. This problems shows up
on one but not the other. Anyone have any clue?

Thanks,

Rick

Did you try the suggestion?

On the machine that fails, uninstall and reinstall Office.

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Rick Allison" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> I have this in my code:
> dim dbsData as DAO.database
> Set dbsData = OpenDatabase(strPathFileName)
>
> where strPathFileName = C:\My
> Documents\Special\RozGranitz\TotalTrialManagementData.mdb
>
> I am receiving....
>
> The following Error has Occurred:
> The Jet VBA file (VBAJET.dll for 16-bit versions, or VBAJET32.dll for
32-bit
> versions) failed to initalize when called. Try reinstalling the
application
> that returned the error. (3447)
>
> Searched on www.deja.com results in issues with VB 5.0 and VB 6.0 and a
> couple of files to include when distributing.
>
> I am using Access 2000 on two different computers. This problems shows up
> on one but not the other. Anyone have any clue?

All methods of the dbengine object should be explicitly qualified with the
name of that object; so, DBENGINE.OpenDatabase. Otherwise, strange DAO
licencing & other errors can occur. See if that is the cause of your
problem.

HTH,
TC


"Rick Allison" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> I have this in my code:
> dim dbsData as DAO.database
> Set dbsData = OpenDatabase(strPathFileName)
>
> where strPathFileName = C:\My
> Documents\Special\RozGranitz\TotalTrialManagementData.mdb
>
> I am receiving....
>
> The following Error has Occurred:
> The Jet VBA file (VBAJET.dll for 16-bit versions, or VBAJET32.dll for
32-bit
> versions) failed to initalize when called. Try reinstalling the
application
> that returned the error. (3447)
>
> Searched on www.deja.com results in issues with VB 5.0 and VB 6.0 and a
> couple of files to include when distributing.
>
> I am using Access 2000 on two different computers. This problems shows up
> on one but not the other. Anyone have any clue?
>
> Thanks,
>
> Rick
>
>