'Listing 34.4 -- 34LIST04.TXT --- Ograniczona prba generowania unikalnego klucza

  Sub Entry_Error (DataErr as Integer, Response as Integer)
    If RetryCounter > 5 Then
       MyWorkSpace.RollBack
       Response = vbDataErrDisplay
       End
    End If 
    Select Case DataErr
      Case vbDuplicateKey
        Entry.Number = Entry.Number + 1
        Response = vbDataErrContinue
        RetryCounter = RetryCounter + 1
      Case Else
        WyWorkSpace.RollBack   
        Response = vbDateErrDisplay
    End Select
  End Sub
