使用select into复制表

Private Sub Command1_Click()
Dim cn As New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库名.mdb"
cn.Execute "select * into table2 from table1 where false"
cn.Close
End Sub

如果在复制表结构的同时也复制数据，那么就

Private Sub Command1_Click()
Dim cn As New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库名.mdb"
cn.Execute "select * into table2 from table1"
cn.Close
End Sub