使用组合框在Access中的子窗体中进行过滤

Question

我在一个名为Region的表单中创建了一个组合框。我想用它来过滤附加到它的子表单中的数据。我的代码是，

Private Sub Region_AfterUpdate()
Dim myregion As String
myregion = "select * from Query1 where ([REG] = '" & Me.Region & "')"
Me.Query1_subform.Form.RecordSource = myregion
Me.Query1_subform.Form.Requery
End Sub

我没有收到任何错误消息，但在组合框中选择区域时没有显示任何内容。有人可以帮我修改代码吗？