富山と申します。リンクサーバーを使用してACCESSのMDBへ書き出しについて
わかる方がいればご教授願います。

SQL Server から　ACCESSへ以下のようにリンクサーバー
の機能を利用して書き出ししようとしますが、
３番目の Executeで、
「オブジェクト名 'ACCESS_DB...'は、プレフィックスの最大数を超えています。最大数は２です。と
メッセージが出てしまいます。
このメッセージはどのようにすれば出さないようにできますか。
よろしくお願いします。

Public Function ImportTest()

Const strConnection = "Provider=SQLOLEDB;" & _
            "UID=sa;" & _
            "Password=password;" & _
            "Data Source=pc1\instance1;" & _
            "Initial Catalogue=DB1;"


    Dim objCN As New ADODB.Connection
    Dim adoRS As ADODB.Recordset
    Dim strSQL As String

    On Error GoTo 0

    objCN.Open strConnection

    objCN.Execute "EXEC sp_addlinkedserver 'ACCESS_DB', '', 
'Microsoft.Jet.OLEDB.4.0', 'c:\db1.mdb' "

    objCN.Execute "EXEC sp_addlinkedsrvlogin 'ACCESS_DB', false, NULL, 
'Admin', NULL "

    objCN.Execute "SELECT DB1.dbo.取引先テーブル.取引先コード INTO 
ACCESS_DB...test FROM DB1.dbo.取引先テーブル; "

    objCN.Close
    Set objCN = Nothing

End Function