Private Sub CreateOleDbCommand( _
ByVal queryString As String, ByVal connectionString As String)
Using connection As New OleDbConnection(connectionString)
connection.Open()
Dim command As New OleDbCommand(queryString, connection)
command.ExecuteNonQuery()
End Using
End Sub
CreateOleDbCommand("INSERT INTO DB1.dbo.Test SELECT * FROM DB2.dbo.Test", myConnectionString)
or
CreateOleDbCommand("select * into [database1].[dbo].[table1] from [database2].[dbo].[table2]", myConnectionString)
select *
into [database1].[dbo].[table1]
from [database2].[dbo].[table2]