Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmRacunUsluge"
stLinkCriteria = "OrderID = '" & Me.OrderID & "'"
DoCmd.OpenForm FormName:=stDocName _
                        , view:=acPreview _
                        , dataMode:=acFormReadOnly _
                        , WhereCondition:=stLinkCriteria
Forms![frmRacunUsluge].AllowAdditions = False