Plese help in this code , i have mentioned comment where error comes

Code:
    For iox = nMinID To nTotID
      
        On Error GoTo Hell
        
        Call Progress(iox, nTotID)
   
     
        con.Execute "delete from  ATACZ_Account_Data"
       
    'error comes in this line
        Rs.Open "insert into ATACZ_Account_Data select * from
...