Dim cono As New Connection, KKSQL As String
     cono.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\bb.mdb"
     KKSQL = "INSERT INTO 表1 SELECT * FROM 表1 IN '" & App.Path & "\aa.mdb'"
    cono.Execute KKSQL
 '上面是一段把aa数据库里的表1复制所有记录到bb数据库的表1里，代码运行正确
实际上想实现aa库的表1直接复制到bb库里（bb库里本不存在表1）
请问如何实现，谢谢