通过VB如何实现将SQL数据从一张表复制到另一张表?

将表a1复制成表a2

select * into a2 from a1

如果想加入条件
select * into a2 from a1 where 字段1='mmm'
将a1表中的字段1为"mmm"的记录复制成表a2

D是表1，temp_rec2是表2.
dim itemp as integer
For iTemp = 0 To D.Fields.Count - 1
temp_rec2.Fields.Append D.Fields(iTemp).Name, adVarChar, D.Fields(iTemp).DefinedSize
Next

For iTemp = 1 To D.recordcount
temp_rec2.AddNew
For iTemp1 = 0 To D.Fields.Count - 1
temp_rec2.Fields(iTemp1).Value = D.Fields(iTemp1).Value & ""
Next

temp_rec2.Update
D.MoveNext
If D.EOF Then Exit For

Next