>
>Eric, here's the code(part of it)
>>>>>>>>>>>>>>>>>>>>>
><< on error goto erline
>Case "MANAGER"
> icntr = rdNinvm.Fields.Count
> For Each contr In Me.Controls
> If TypeOf contr Is TextBox And UCase(contr.Tag) = UCase(Trim(str)) Then
> For j = 0 To icntr - 1
> If UCase(rdNinvm.Fields(j).Name) = UCase(contr.Name) Then
> contr = rdNinvm.Fields(j)
> Exit For
> End If
> Next
> End If
> Next
>.....
>end select
>
>
>erline:
> MsgBox " Error occured " & Err.Description & " " & Err.Number & " " & Err.Source
> End
>end sub
>>>>>>>>>>>>>>>>>
>so after that i get the message box displayed. I hope the code is clear enough.
>Thank you very much
>Vlad

You miss only a simple thing.

You have to include the statement Exit Sub before the erline: label to tell to VB not to pass in the error handler.