Private Sub Form_Error(DataErr As Integer, Response As Integer)
Response = Greske(DataErr, Response)
End Sub