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」
を選択しておいてください。