Import from Access to Access (table to table)

Option expedition

Dim adocon as adodb.connection

Private sub flow_load ()

Set adocon = new adoDb.connection

Adocon.connectionstring = "provider = sqloledb.1; password =; persist security info = true; user ID = sa; initial catalog = DRUGDB; DATA SOURCE = 192.168.30.122"

Adocon.ConnectionTimeout = 120

Adocon.open

Adocon.execute ("Delete from OpenDataSource ('Microsoft.jet.OleDb.4.0', 'Data Source =" & App.Path & "/Test.mdb;user ID = admin; password =') ... Carsort1")

Adocon.execute ("INSERT INTO OpenDataSource ('Microsoft.jet.OleDb.4.0', 'data source =" & app.path "/test.mdb;user id = admin; password =') ... Carsort_ID , sort_name) Select sort_id, sort_name from openDataSource ('microsoft.jet.oledb.4.0', 'data source = "& app.path &" /test.mdb;user id = admin; password =') ... Carsort )

Adocon.close

Set adocon = Nothing

End Sub