VB6插入删除数据

假设有两张表，简称表1，表2。表2里面有如下图所示的数据，我现在要把表2里面同机器名的3条数据只需要一条，然后插入表1里面，要求是选择发行日期最新的一条数据插入到表2，然后把表2里面这3条数据都删除，怎么用代码实现？

机器名     规格      名称      数据       。。。       。。。
ABC         5A       日期    2005.1.1     。。。       。。。
ABC         5A       日期    2009.1.1     。。。       。。。
ABC         5A       日期    2011.1.1     。。。       。。。 --------------------编程问答-------------------- 题目描述不清，不好猜测~~~
select 机器名，规格，名称，max(日期) from 表2 group by 机器名，规格，名称 --------------------编程问答-------------------- strSql="select 机器名，规格，名称，max(日期) from 表2 group by 机器名，规格，名称"
rs.open strSql,conn,3,3

do while not rs.eof

  conn.execute "insert into 表1（机器名，规格，名称，日期）Values('"& rs.fields("机器名") &"','"& rs.fields("规格") &"','"& rs.fields("名称") &"','"& rs.fields("日期") &"')" 
 

rs.movenext
loop

conn.execute "delete from 表2"

补充：VB ,  基础类