子窗体条件查询数据不能实现

这是我写的,不知为什么运行不成功!

Private Sub 纸张规格_AfterUpdate()

       If Forms![生产通知单]![印数] < 2000 Then
        Me.装订放数 = DLookup("伸放率1", "纸张伸缩查询", "纸张伸缩查询.纸张规格 = " & Forms!纸张规格!纸张规格&)
       
         ElseIf Forms![生产通知单]![印数] >= 2000 And Forms![生产通知单]![印数] < 5000 Then
       Me.装订放数 = DLookup("伸放率2", "纸张伸缩查询", "纸张伸缩查询.纸张规格 = " & Forms!纸张规格!纸张规格&)
            
       ElseIf Forms![生产通知单]![印数] >= 5000 And Forms![生产通知单]![印数] < 10000 Then
         Me.装订放数 = DLookup("伸放率3", "纸张伸缩查询", "纸张伸缩查询.纸张规格 = " & Forms!纸张规格!纸张规格&)
                               
       ElseIf Forms![生产通知单]![印数] > 10000 Then
      [Forms]![生产通知单]![纸张规格].[Form]![装订放数] = "SELECT 伸放率4 FROM 纸张伸放 where 纸张规格=[Forms]![生产通知单]![纸张规格].[Form]![纸张规格];"
                            End If

        '刷新“纸张规格”子窗体
        Me![纸张规格].Requery

End Sub