Dim rs As DAO.Recordset
Dim rs1 As DAO.Recordset
Dim db As Database
Dim strSQL As String
    Set db = CurrentDb()
                 strSQL = "SELECT  * FROM gecici"  '***** birinci tablo SQL'i ********
    Set rs = db.OpenRecordset(strSQL)
                strSQL = "SELECT  * FROM esas"      '***** ikinci tablo SQL'i ********
    Set rs1 = db.OpenRecordset(strSQL)
    If rs.EOF = True Then exit sub
    rs.MoveFirst
    Do Until rs.EOF
        rs1.AddNew                                         '**** Birinci tabloya yeni kayit eklendi ***********
        rs1!ad = rs!ad
        rs1!yaş = rs!yaş
        me.satis_no.text = rs!satis_no
        rs1.Update                                              '**** Eklenen dizini guncelledi ***********
        rs.MoveNext
    Loop
 rs1.close: set rs1=nothing
   DoCmd.RunSQL "DELETE * FROM gecici"
   MsgBox ("Aktarma işlemi yapıldı...Geçici tablodaki veriler silindi......!!!")

Dim rs1 As adodb.Recordset
'******** Referanslardan Microsoft activex data object .... library **** kitapcigi isaretlenmeli
Dim rs As adodb.Recordset
rs1.open  "SELECT  * FROM gecici", currentproject.connection, 3, 1 '**** ADO veri acma **************
rs.open  "SELECT  * FROM esas", currentproject.connection, 3, 1     '**** ADO veri acma **************
If rs.EOF = True Then exit sub
    rs.MoveFirst
    Do Until rs.EOF
...
...
exit sub