'例子:
Sub copytable()
Dim iDb As ADODB.Connection
Dim iConc As String
iConc = "Provider=SQLOLEDB.1;Persist Security Info=True;" & _
"User ID=用户名;Password=密码;Initial Catalog=数据库名;Data Source=SQL服务器名"
Set iDb = New ADODB.Connection
iDb.Execute "select * into 新表 from 旧表"
iDb.Close
msgbox "复制完成"
End Sub