ağ olmadığı için yerel bilgisayarda yaptım
1 - yeni bir VT oluşturun
2 - 3 tablo ekleyin
3 - yeni bir form oluşturup  form tablolara bağlı 3 liste kutusu ekleyin
sonrada forma aşağıdaki kodları ekleyin

Dim htSy As Boolean



Private Sub Form_Error(DataErr As Integer, Response As Integer)

Response = 0



If DataErr = 3024 And htSy = False Then

  MsgBox "Veritabanına bağlanılamadı", vbCritical, "Hata"

End If

htSy = True

End Sub

4 - veri tabanınızı bölün
5 - tabloların olduğu VTyi silin yada adını değiştirin
bağlı tablo olmadığı için çalışması gerek