运行错误代码3020

Set rst = CurrentDb.OpenRecordset("data")
    If rst.RecordCount > 0 Then
        rst.MoveFirst
        For i = 1 To rst.RecordCount
            rst.Edit
            rst.Fields("单价").Value = i
     
            rst.Update
            rst.MoveNext
        Next i


    End If
    rst.Close