ağdaki başkabir access dosyasında bulunana tablodaki verilerin hepsini çekme

db1.mdb bulunan Tablo1 deki tum veriyi db2 de bulunan tablo1 nasil aktarabilirim ?

    'DoCmd.TransferDatabase acLink, "Microsoft Access", "\\10.0.0.15\db\1.mdb", acTable, "tablo1", "ADI", False

    Set a = Nothing

  Set a = New Access.Application

  a.OpenCurrentDatabase "\\10.0.0.15\db\1.mdb"

  a.CurrentDb.Execute "insert into Tablo1 (ADI )" & " select   '" & Me.Metin0 & "'"

  



  a.DoCmd.Maximize

  a.Visible = False

  'a.DoCmd.Close acForm, "FRM_TEKNIK_SERVIS_UYGULAMA2"

 a.DoCmd.Close acDataAccessPage, "\\10.0.0.15\db\1.mdb"

---

bu koda nasıl bir düzenleme yapabilirim ?

çözüldü

    'DoCmd.TransferDatabase acLink, "Microsoft Access", "\\10.0.0.15\db\1.mdb", acTable, "tablo1", "ADI", False

    Set a = Nothing

  Set a = New Access.Application

  a.OpenCurrentDatabase "\\10.0.0.15\db\1.mdb"

  a.CurrentDb.Execute "insert into Tablo1 (ADI )" & " select   '" & Me.Metin0 & "'"

  'a.DoCmd.TransferDatabase acImport, "Microsoft Access", "\\10.0.0.15\db\1.mdb", acTable, "Tablo1.[ADI],", "Tablo1.[ADI]", True

  DoCmd.RunSQL "Insert INTO tablo1 SELECT * FROM Tablo2 IN '\\10.0.0.15\db\1.mdb'"

  a.DoCmd.Maximize

  a.Visible = False

  'a.DoCmd.Close acForm, "FRM_TEKNIK_SERVIS_UYGULAMA2"

 a.DoCmd.Close acDataAccessPage, "\\10.0.0.15\db\1.mdb"