スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
DAOと同様にADOによって同じ処理をさせてみます。ADOでアクションクエリを実行させる手段として、ここではConnectionオブジェクトのExecuteメソッドを使用しています。

Public Sub FileExport3()
 
 Dim cn As New ADODB.Connection
 Dim strSQL As String
 
 Set cn = New ADODB.Connection
 cn.ConnectionString = _
    "Provider=microsoft.jet.oledb.4.0;" & _
    "Data Source=d:\NorthWind.mdb"
  cn.Open
 
 strSQL = "SELECT * INTO カタログＴ IN 'D:\Northwind.mdb' FROM カタログ"
 cn.Execute strSQL, , adCmdText
 cn.Close
 
 Set cn = Nothing
End Sub

●動作確認●
テーブルに「カタログT」が作成されていることを確認してください。

●補足●
Access97で実行する場合はあらかじめ参照設定で「Microsoft ActiveX Data Objects2.1 Library」を選択しておいてください。