vb在access數據庫中如何創建新表

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