excel如何update？（附源码）

[sotcc]

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

cn.Open "Provider=MicroSoft.Jet.OLEDB.4.0;Data Source=D:\reference docs\vb\test.xls;Extended Properties=Excel 8.0;Persist Security Info=false"

rs.Open "select * from [FT Register-IFSV2$]", cn, adOpenKeyset, adLockOptimistic


cn.Execute "update [FT Register-IFSV2$] set [ColumnA]='ccc' where [ColumnB] = '17'"


程序执行到execute update时，报错“-2147217904”
请问为什么？

[hhjjhjhj]

cn.Execute "update [FT Register-IFSV2$] set F1='ccc' where F2 = '17'"

[sotcc]

谢谢！