On Error Resume Next
Set oDb = DBEngine.OpenDatabase(...)
If Err <> 0 Then
  ' Ggf. reparieren
  Err = 0
  DBEngine.RepairDatabase ...
  If Err = 0 Then
    Set oDb = DBEngine.OpenDatabase(...)
  End If
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de