If txtDurumu = "Aktif" Then CurrentDb.Execute "Update tblKayitbilgileri set [Sayfadurumu]='Aktif' where [Sayfano]='" & txtSayfano & "'"
Komut167ye sadece aşağıdaki kodu yazıp dener misiniz?