Puoi utilizzare una cosa come questa:
Dim fs As New FileSystemObject
While Not fs.FileExists("\\192.168.0.123\cartella\database.mdb")
DoEvents
Wend
Set fs = Nothing
' Avvio programma...
ATTENZIONE! Per utilizzare il codice qui sopra devi aggiungere un riferimento a "Microsoft Scripting Runtime" (Progetto -> Riferimenti...).
Questo esempio è molto "rozzo", potresti per esempio introdurre un timer che dopo un certo tempo annulla l'operazione.
ciao!