codice:
Dim fileaggiorna As String = My.Application.Info.DirectoryPath & "\magaagg.Mdb"
        Dim QueryInserimento4 As OleDb.OleDbCommand
        Dim StringaQuery As String
        Dim connectionString As String = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & fileaggiorna
        Using connection As New OleDbConnection(connectionString)
            connection.Open()
            Try
                StringaQuery = "insert into magaz select codice,articolo from idraulica in 'c:\maga.Mdb'"
                Dim estrai8 As OleDbCommand = New OleDbCommand(StringaQuery, connection)

                estrai8.ExecuteNonQuery()
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Information, " info :[Attenzione] errore")
            End Try
        End Using
Ecco il codice in visual basic 2008