Private Sub Кнопка1_Click()
    Dim ADOConn As New ADODB.Connection
    Dim ADORec As New ADODB.Recordset
    Dim ADORec2 As New ADODB.Recordset
  
    ADOConn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source= " & CurrentDb.Name & ";"
    ADOConn.Open
    Set ADORec.ActiveConnection = CurrentProject.Connection 'ADOConn
    ADORec.LockType = adLockOptimistic
    ADORec.CursorType = adOpenKeyset
    ADORec.Source = "tbl_Groups"
    ADORec.Open
      
    ADORec.AddNew
    NewGroupID = ADORec.Fields("GroupID").Value
    ADORec.Update
    
    ADORec.Close
    Set ADORec = Nothing
    
    Set ADORec2.ActiveConnection = CurrentProject.Connection 'ADOConn
    ADORec2.LockType = adLockOptimistic
    ADORec2.CursorType = adOpenKeyset
    strSQL = "SELECT * FROM tbl_Products WHERE CB = TRUE"
    ADORec2.Source = strSQL
    ADORec2.Open
    
    ADORec2.MoveLast
    ADORec2.MoveFirst
    
    rsCount = ADORec2.RecordCount
    
    For i = 1 To rsCount
        ADORec2.Fields("GroupID") = NewGroupID
        ADORec2.Fields("CB") = False
        ADORec2.Update
        ADORec2.MoveNext
    Next
    ADORec2.Close
    Set ADORec2 = Nothing
    
    
    
    'пауза
    
    Me.Requery
    DoCmd.OpenForm "frm_GroupCard", acNormal, , "GroupID = " & NewGroupID
End Sub