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"