Sub TabloAktar() 'Accses Lot Tablosundaki Tüm verileri LotGercekStokTaplosuna Kopyalar
Set baglan = CreateObject("adodb.connection")
                        Set rs = CreateObject("adodb.recordset")
                        Call baglanti
On Error Resume Next
baglan.Execute "insert into LotGercekStok select * from Lot"
 
    baglan.Execute "insert INTO Lot " & _
    "SELECT LotGercekStok " & _
    "FROM LotGercekStok"
 
baglan.Close
 
End Sub