Access versions and this code?

[Rachael]

Hi All,

Can anyone shed any light on this bit of code and why it would work in, so far, Access 2000, 2000 runtime, and will not work on a computer with A2002 (I thought 2002 would run 2000 mde's)

I have read that the connect part might not be liked by 2002, is there a better way to write the code perhaps?

Dim strConnect As String
strConnect = Mid(DBEngine(0)(0).TableDefs("Blocks").Connect, Len(";DATABASE=") + 1)

FileCopy strConnect, "C:\My Documents\VADataFile_BackUp.mdb"


I am using this code in the on-open of my splash screen to make a copy of the backend to my docs everytime the user opens the programs as many run scheduled backups of their my docs folders.

Thankyou for all replies.

Rachael

 

[Rachael]

I have DAO 3.6 library ticked but not prioritized higher than ADO 2.1, would this cause some computers to have heartattacks depending on the access versions installed and not others (like my development machines)

Just a thought!

Rach