Sub test_etp()
	Set cnt = New ADODB.Connection
    cnt.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Pavel\Desktop\test_etp2.accdb;"
	Ask = "insert into [Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Pavel\Desktop\test_etp.accdb].[123] Select * from [Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Pavel\Desktop\test_etp.accdb].[567];"
	Set rs = cnt.Execute(Ask)
End Sub