VBA to check if a database is open

[FSCHAMP]

Hello,

I have a DB "A" where I make a copy of an other DB "B" with the next VBA part:

HDatum = Int(Now())
dag = Format(HDatum, "ddd", vbMonday, vbUseSystem)

'***************************************
'*** Stel doel- en bronbestand in ***
'***************************************
doelbestand = "S:\Common\gino\backupDatabases\Data of dbStocktanks_" & dag & ".mdb"
bronbestand = "S:\Common\Lean-DPS general folder\STocktank analysis\Data of dbStocktanks.mdb"

'****************
'*** Kopiëer ***
'****************
FileCopy bronbestand, doelbestand



But I got an error when the DB "B" is open. How can this be solved?

Regards,

FSCHAMP.

[ajetrumpet]

http://www.google.com/#sclient=psy&h...664e7e8c090ddc