Error running code

[dancarter]

Hi,
I get this error when trying to rung a piece of code:
The expression On Load you entered as the event property setting produced the following error: Member already exists in an object module from which this object module derives.

I have the EXACT same code working on other forms using different fields and I just can't figure out why this particular one isn't working, it's driving me nuts!
My code is this:

Private Sub Form_Load()
Dim strReason As String

strReason2 = Nz(Ref3Poor_Reason, " ")

    Select Case strReason3
           Case "Not Known", "Unwilling to Give"
                 Poor1NavRef3.Visible = False
                 Poor2NavRef3.Visible = True
                 
           Case Else
                 Poor2NavRef3.Visible = False
                 Poor1NavRef3.Visible = True
                 
    End Select
    
Dim Ref3PoorCheck As Boolean
Ref3PoorCheck = Ref3Poor_Reference

Select Case Ref3PoorCheck

Case "True"
Ref3Poor_Reason.Visible = True

Case "False"
Ref3Poor_Reason.Visible = False

End Select

End Sub

Can anybody tell me where I'm going wrong please?
Thanks,
Dan

 

[KenHigg]

I see a couple potential problems. Place a break point in your code and see what line the error is occurring on.