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