Датагрид с чекбоксами и второй датагрид - VB

Формулировка задачи:

вопрос такой:
база access
в первом датагриде (подключенном к рекордсету из справочника rs_reg, таблица region) отображены регионы РФ с 1-го по 83, чекбоксами я выбираю например 2 региона пусть они будут 26 и 41
во втором датагриде отоброжаются покупатели из рекордсета rs_users (таблица users)
в обоих таблицах есть колонка k_reg (код региона)
как мне сделать так чтобы во втором гриде отоброжались тотлько те покупатели, которые проживают в регионе отмеченном галкой в первом датагриде?

Решение задачи: «Датагрид с чекбоксами и второй датагрид»

textual
                            Листинг программы 
                        

                            <font color="00AA00">'Так правильнее будет</font>
  <font color="blue">Dim</font> s <font color="blue">As</font> <font color="blue">String</font>
  <font color="blue">Dim</font> rs <font color="blue">As</font> ADODB.Recordset
  <font color="blue">Set</font> rs = rs_reg.Clone
  rs.Filter = <font color="teal">"check = -1"</font>
  <font color="blue">Do</font> <font color="blue">Until</font> rs.EOF
    <font color="blue">If</font> Len(s) > <font color="darkblue"><b>0</b></font> <font color="blue">Then</font> s = s & <font color="teal">", "</font>
    s = s & rs(<font color="teal">"K_REG"</font>)
    rs.MoveNext
  <font color="blue">Loop</font>  
  <font color="blue">With</font> rs_users
    <font color="blue">if</font> .state = Adstateopen <font color="blue">then</font> .<font color="blue">close</font>
    <font color="blue">If</font> Len(s) > <font color="darkblue"><b>0</b></font> <font color="blue">Then</font>
      .<font color="blue">Open</font> <font color="teal">"SELECT * FROM users WHERE K_REG IN ("</font> & s & <font color="teal">")"</font>, cnn, adOpenStatic, adLockReadOnly, adCmdText
    <font color="blue">End</font> <font color="blue">If</font>
  <font color="blue">End</font> <font color="blue">With</font>
 <font color="blue">Set</font> dg_users.DataSource = rs_users
                        