Set rs_sort_reg = New ADODB.Recordset
Dim s As String
  Dim rs As ADODB.Recordset
  Set rs = rs_reg.Clone
  rs.Filter = "check = -1"
  Do Until rs.EOF
        If Len(s) >  0  Then s = s & ", "
            s = s & rs("K_REG")
        rs.MoveNext
  Loop
    If Len(s) =  0  Then s = "-1"
    'Set dg_users.DataSource = Nothing
    With rs_sort_reg
    'If .State = adStateOpen Then .Close
    .Open "SELECT * FROM users WHERE REG IN (" & s & ")", cnn, adOpenStatic, adLockReadOnly, adCmdText
  End With

set rs_select = new adodb.recordest
sql = select * from rs_sort_reg where k_tov =  1 
rs_sort_reg.Open SQL, cnn, adOpenDynamic, adLockOptimistic

Set rs_sort_reg = New ADODB.Recordset
Dim s As String
Dim s1 As String
Dim d As String
Dim d2 As String
  
  Dim rs As ADODB.Recordset
  Dim rs1 As ADODB.Recordset
  
  Set rs = rs_reg.Clone
  Set rs1 = rs_prod.Clone
  
  rs.Filter = "check = -1"
  rs1.Filter = "chekbox = -1"
  
  Do Until rs.EOF
        If Len(s) >  0  Then s = s & ", "
            s = s & rs("K_REG")
        rs.MoveNext
  Loop
  
  Do Until rs1.EOF
        If Len(s1) >  0  Then s1 = s1 & ", "
            s1 = s1 & rs1("k_tov")
        rs1.MoveNext
  Loop
  
    If Len(s) & Len(s1) =  0  Then s = "-1" & s1 = "-1"

        d = Format("dd/mm/yyyy")
        d = txtBeg.Text
        d = "#" + Replace(d, ".", "/") + "#"

        d2 = Format("dd/mm/yyyy")
        d2 = txtEnd.Text
        d2 = "#" + Replace(d2, ".", "/") + "#"

    On Error Resume Next
    With rs_sort_reg
    .Open "SELECT * FROM users WHERE REG IN (" & s & ") and k_tov1 in (" & s1 & ") and (date >=" + d + ") and (date <=" + d2 + ")", cnn, adOpenStatic, adLockReadOnly, adCmdText
    End With

Set dg_users.DataSource = rs_sort_reg