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

 Select Case DataErr
 
 Case 2113
 MsgBox "Pogresno unesen datum"
 Case 11111
 ' neka druga greska
 End Select
 
End Sub