省市区自动级联起来

Private Sub Combo2_GotFocus()
Me.Combo2.RowSource = "SELECT [Ê¡-ÊÐ].ÊÐID, [Ê¡-ÊÐ].ÊÐ FROM Ê¡ INNER JOIN [Ê¡-ÊÐ] ON Ê¡.Ê¡ID = [Ê¡-ÊÐ].Ê¡ WHERE (((Ê¡.Ê¡ID)=[Forms]![´°Ìå2]![Combo0]))"
End Sub

Private Sub Combo4_GotFocus()
Me.Combo4.RowSource = "SELECT [ÊÐ-Çø].ÇøID, [ÊÐ-Çø].Çø FROM [Ê¡-ÊÐ] INNER JOIN [ÊÐ-Çø] ON [Ê¡-ÊÐ].ÊÐID = [ÊÐ-Çø].ÊÐ WHERE ((([Ê¡-ÊÐ].ÊÐID)=[Forms]![´°Ìå2]![Combo2]))"
End Sub