Public Sub Symantec()

Dim Cn As New ADODB.Connection

Dim Rst As New ADODB.Recordset
Dim rst1 As New ADODB.Recordset
Dim sql As String

   Set Cn = New ADODB.Connection
   Cn.CursorLocation = adUseClient
     
 Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= " & App.Path & "\AShield.mdb"

Set Rst = New ADODB.Recordset
Set rst1 = New ADODB.Recordset

Rst.Open [B]"SELECT AddSoftware.Symantec, Software.* FROM AddSoftware, Software WHERE AddSoftware.Symantec = Software.SoftwareList ORDER BY AddSoftware.Symantec ", Cn, adOpenStatic, adLockOptimistic[/B]rst1.Open "Select * from Symantec", Cn, adOpenStatic, adLockOptimistic
    
    DeletePCSymantec
    
    Do Until Rst.EOF
    
       If Rst!Symantec = Rst!SoftwareList Then
                    
          rst1.AddNew
          
          rst1!Symantec = Rst!Symantec
          rst1!PC = Rst!PC
          
          rst1.Update
                              
       End If
       
    Rst.MoveNext
       
    Loop
    
        Rst.Close
    rst1.Close
    
 Set Rst = Nothing
 Set rst1 = Nothing
 
End Sub