Catch SqlServer Errors in VB6

[si_the_geek]

That's just luck I'm afraid - you aren't checking the error code at all (what you are accidentally doing there is actually a Bit manipulation and conversion to boolean, which will always be true).

It should be like this:

If Err.Number = adRecIntegrityViolation Or Err.Number = adErrIntegrityViolation Then

[CVDpr]

It should be like this:

If Err.Number = adRecIntegrityViolation Or Err.Number = adErrIntegrityViolation Then

Now it doesnot work. is till showing this message

Violation of UNIQUE KEY constraint 'IX_AppInformationOfBillingByInsuranceAndServiceArea_1'. Cannot insert duplicate key in object 'AppInformationOfBillingByInsuranceAndServiceArea'.