Кто занет почему база данных в Access 2000, работает только
первые 15-17 дней, после установки WIndows 2000, переустановка
пакета Office не помогает, только после переустановки всего Windows.
Ошибка появляется при поиске в форме, (поиск по номеру телефона).
Выскакивает окно Visual Basic. Ошибка выглядит так:

Private Sub Поле4_AfterUpdate()
DoCmd.OpenForm "клиент-9"
Forms![клиент-9]![Телефон].SetFocus
DoCmd.FindRecord (Поле4), acAnywhere
Me![Поле0] = Mid(Forms![клиент-9]![Телефон], 1, 4) + "-" + Mid(Forms![клиент-9]![Телефон], 5, 2) + "-" + Mid(Forms![клиент-9]![Телефон], 7, 2)
DoCmd.Close acForm, "клиент-9"
If Me![Поле0] = Me![Поле4] Then
For i = 1 To 200
DoCmd.Beep
Next
End If