vb中和数据库连接问题

Question

遇到个问题,一家企业有消防A和可燃气B两种报警. 
当A报警时候数据库中的表con_receive第4列is_warn列置1, ssr.Fields(3).Value = 1; 
当B报警时候数据库中的表con_receive第4列is_warn列置2, ssr.Fields(3).Value = 2; 
当正常不报警为0,ssr.Fields(3).Value = 0. 
共8家企业,数据库中共8条,现在问题: 
想把每家企业报警在数据库中分开,当第一家企业消防和可燃气都报警的时候,数据库表con_receive中第一行为这家企业的消防报警ssr.Fields(3).Value = 1,可燃气报警为表中的第二行或者第九行ssr.Fields(3).Value = 1.这样表中共有16条报警,请问如果这样改的话,在vb程序和数据库连接中如何修改程序呢?   vb中相关程序如下: 
    sss = "select * from con_receive"  '------sql连接 
    
    Adodc1.RecordSource = sss 
    
    Adodc1.Refresh 
    
    Set ssr = Adodc1.Recordset         If (din1 And 1) = 1 Then        '----------A报警 
            
            ssr.Fields(3).Value = 0 
            Check3(I).ForeColor = vbBlack 
        Else 
          Check3(I).ForeColor = vbRed 
          
            If Check3(I).Value = 0 Then 
                Alame = Check3(I).Caption 
                boom = True 
                ssr.Fields(3).Value = 1 
            Else 
                ssr.Fields(3).Value = 0 
            End If 
      End If 
        If (din2 And 1) = 1 Then                '-------------B报警 
            ssr.Fields(3).Value = 0 
            Check4(I1).ForeColor = vbBlack 
        Else 
            Check4(I1).ForeColor = vbRed 
            If Check4(I1).Value = 0 Then 
                Alame = Check3(I1).Caption 
                boom1 = True 
                ssr.Fields(3).Value = 2 
            Else 
                ssr.Fields(3).Value = 0 
            End If 
        End If