Ekleme sorgusu veya güncelleme sorgusu yerine ado kullanın. Sorguda tablodaki alanın veri tipine göre sorunlar çıkabilir.

Kayıt eklemek için;

strSQL = "SELECT * FROM tabloadı "

    Set rstkayit = New ADODB.Recordset

    rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

        With rstkayit

            If Not rstkayit.EOF Then

                .AddNew

                .Fields("tablodakialan1") = Me.metinkutusu1

                .Fields("tablodakialan2") = Me.acilankutu.Column(0)

                .Update

             End If

        End With

Kayıt güncellemek için;

strSQL = "SELECT * FROM tabloadı "

    Set rstkayit = New ADODB.Recordset

    rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

        With rstkayit

        .Find "[kayitno]=" & "'" & Me![KAYITNO] & "'"

            If Not rstkayit.EOF Then

                .Fields("tablodakialan1") = Me.metinkutusu1

                .Fields("tablodakialan2") = Me.acilankutu.Column(0)

                .Update

             End If

        End With

Ado kodunda tablodaki alanlar ve formdaki denetimleri alt alta yazdığı için net görebilirsiniz ve hata olasılığı azalır.

Bu kodun kullanılması için ado referansının eklenmesi gerekli.