ник: Анатолий (Киев)
Попробуйте в другой БД (но с тем же MDW) выполнить:
Set db = OpenDatabase("Путь к испоченной БД")
Если выполняется, то можно залезть в ее Properies и снять защиту от Shift.
Там же можно прилинковать или импортировать таблицы.
Кроме того с ярлыка с параметром /Compact (/Repair ?) можно попітаться создать исправленную копию файла.
А вы не пробовали восстановить БД с помощью JetComp.exe (найдёте в инете) или утилитой ODBC драйвера?