Private Sub Komut4_Click()

'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 = True

'a.DoCmd.Close acForm, "FRM_TEKNIK_SERVIS_UYGULAMA2"

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



End Sub