vba将查询后的结果返回到一张新表中

求助大家，多谢。
我想在access库中插入一个窗体，实现点击按钮，完成查询，并将查询结果放入同一库中的一张新表中。（不要求导入excel，因为数据量很大）
Private Sub Command1_Click()

Dim cnn As New Connection
Dim strsql As String, strcon As String
strcon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\名单数据库.mdb"
cnn.Open strcon
strsql = "select * from 201009"
cnn.Execute (strsql)
cnn.Close
Set cnn = Nothing

End Sub
请问执行的那句应该怎样写，才能达到要求。非常感谢！

修改一下你的SQL就可以了 [ 本帖最后由 taller 于 2010-11-26 00:06 编辑 ]