Şu kodu çalıştırdığımda

Private Sub Komut39_Click()

    Dim strSQL As New ADODB.Connection

    Dim rstkayit As New ADODB.Recordset

    krkSQL = "SELECT *FROM tbl_kasa"

            

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

                With rstkayit

                    .Find "[CariBilgisi]=" & Me.CariBilgisi

                        DoCmd.RunCommand acCmdSaveRecord

                        .AddNew

                        .Fields("CariBilgisi") = Me.CariBilgisi

                        .Fields("ktarihi") = Me.Tarih

                        .Fields("giris") = Me.fatTopla

                        .Update

                        End With

                                              

                        

                   

                            

                            

End Sub

Şu hatayı alıyorum