DoCmd.RunSQL "UPDATE tablo1 " _

                    & " SET [Daire] = '" & Me.Açılan_Kutu48 & "',[Mahalle] = '" & Me.Açılan_Kutu51 & "',[Sokak] = '" & Me.Metin0 & "',[Cins] = '" & Me.Metin2 & "',[Kvadsoyad] = " & Me.Metin4 & ",[KvTc] = '" & Me.Metin6 & "'" _

                    & ", [KvAdres] = '" & Me.Metin8 & "',[evsahibitel] = '" & Me.Metin71 & "',[kradsoyad] = '" & Me.Metin10 & "',[krtc] = '" & Me.Metin12 & "'" _

                    & ", [KrAdres] = '" & Me.Metin14 & "',[Krisadres] = '" & Me.Metin16 & "',[KiracıTel] = '" & Me.Metin73 & "',[Kiraay] = " & Me.Metin18 & ",[KiraYıl] = " & Me.Metin20 & ",[Odsek] = '" & Me.Açılan_Kutu1 & "'" _

                    & ", [Herayın] = " & Me.Metin24 & ",[Mudded] = '" & Me.Metin26 & "',[Krbas] = '" & Me.Metin28 & "',[KiraSon] = '" & Me.Metin128 & "',[Durum] = " & Me.Açılan_Kutu53 & ",[Apaidat] = " & Me.Metin188 & "" _

                    & ", [Kullsek] = '" & Me.Açılan_Kutu57 & "',[Dask] = '" & Me.Metin32 & "',[Elkt] = '" & Me.Metin34 & "',[Su] = '" & Me.Metin36 & "',[susozlesme] = '" & Me.Metin190 & "',[Gaz] = '" & Me.Metin38 & "'" _

                    & ", [Abonelik] = " & Me.Metin30 & ",[pesinat] = " & Me.Metin77 & ",[depozit] = " & Me.Metin75 & ",[DosyaNo] = " & Me.Metin130 & ",[Acıklama] = '" & Me.Metin156 & "',[Kimde] = '" & Me.Açılan_Kutu176 & "'" _

                    & ", [adreskodu] = '" & Me.Metin186 & "',[ApAidatDD] = '" & Me.Açılan_Kutu55 & "',[ElktSayac] = '" & Me.Metin189 & "',[SuSayac] = '" & Me.Metin153 & "',[SuSicil] = '" & Me.Metin192 & "',[Komisyon] = " & Me.Metin195 & ",[Not] = '" & Me.Metin193 & "'" _

                    & " where (krtc='" & Me.Liste69.Column(2) & "' AND DosyaNo=" & CLng(Me.Liste69.Column(6)) & ")"

zafer bey siz en iyisi update sorgusunu iyice araştırın. çünkü benim dediğimi yapmamışsınız, satır başındaki alanların önüne virgül EKLELEMİŞSİNİZ