access vba之组合框控件

2个组合框链接不同的数据，然后，一个组合框更改，导致另一个组合框内容更改，通常另一个组合框与更改的组合框是父子关系

Private Sub 街道_AfterUpdate()
   If Trim(街道) <> "" Then
     社区 = ""
     社区.RowSource = "SELECT 社区.社区名称,社区.街道名称 FROM 社区  where 街道名称='" & 街道 & "' ORDER BY 社区.社区名称"
     社区.Requery
    Else
     社区.RowSource = "SELECT 社区.社区名称,社区.街道名称 FROM 社区 ORDER BY 社区.街道名称,社区.街道名称"
     社区.Requery
   End If
End Sub