Option Compare Database satırının altına

Dim htSy As Boolean

satırını ekleyip
kodu aşağıdaki gibi düzenler misiniz?

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