おそくなりましたが、私の行った手法です。 
 
 Dim Cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; C:\TEST\Org.MDB") 
 Dim SQLCm As OleDbCommand = Cn.CreateCommand 
 Dim WSql As String 
 
 WSql = "SELECT * INTO [;Database=C:\TEST\New.MDB].[商品マスタNew] FROM [商品マスタ]" 
 
 SQLCm.CommandText = (WSql) 
 Cn.Open() 
 SQLCm.ExecuteNonQuery() 
 Cn.Close()