Private Sub CommRabat_Click()

On Error GoTo Err_CommRabat_Click

    Dim stDocName As String

    Dim stLinkCriteria As String

    stDocName = "frmRabat"

    stLinkCriteria = "[OrderID]=" & "'" & Me![OrderID] & "'"

    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_CommRabat_Click:

    Exit Sub

Err_CommRabat_Click:

    MsgBox err.Description

    Resume Exit_CommRabat_Click

End Sub