Dim db As DAO.Database
            Dim strSQL As String
            Dim GDosyaDizin, GEskiDosya, GYeniDosya As String
            
            GDosyaDizin = CurrentProject.Path & "\"
            GEskiDosya = Dlookup ("uygulamaadi", "tbl_uygulama_ayarlari")
            GYeniDosya = Dlookup ("yenidosyaadi", "tbl_uygulama_ayarlari")
            
            Set db = OpenDatabase(Environ("TEMP") & "\" & GGuncelleDosyaAdi)
            
            db.Execute "Delete * FROM tbl_guncellemeayar;"
            db.Execute "INSERT INTO tbl_guncellemeayar (dosyadizin, eskidosyaadi,yenidosyaadi) VALUES ('" & GDosyaDizin & "', '" & GEskiDosya & "', '" & GYeniDosya & "');"
                         
            db.Close