Etikette ved klik

Denne funktion virke på en knap og på en teksboks men hvordan får jeg den til at virke på en Etiket..?

//---------------------------------\\
Private Sub ret_kunde_Click()
On Error GoTo Err_ret_kunde_Click
    DoCmd.Close
    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "ret_firma"
   
    stLinkCriteria = "[Firmanavn]=" & "'" & Me![Firmanavn] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria


Exit_ret_kunde_Click:
    Exit Sub

Err_ret_kunde_Click:
    MsgBox Err.Description
    Resume Exit_ret_kunde_Click
End Sub
//---------------------------------\\