كيف اعمل فلترة للجدول في التقرير

Dim x As String
x = ("الداخلية")
With DataEnvironment1.rsCommand2
 .Open "SELECT * From final Where contry = '" & x & "'"
 DataReport2.Show
End With

هذا لجهة واحدة في التقرير

اما اذا اردت اكثر من جهة مشتركة مثل الداخلية و المجتمع كيف اكتب الكود حتى يظهر لي الداخلية والمجتمع

وجزيتم خيرى

اخوكم محمد خليل