vb用dao不能更新vfp数据库?

Dim db As Database
Data1.Connect = "FoxPro 3.0;"
Data1.DatabaseName = "g:\数据交换\我的例子" 'VFox的数据库名即数据库文件所在的目录
Data1.ReadOnly = False
Data1.Refresh '打开
Dim rs As DAO.Recordset
Set Data1.Recordset = Data1.Database.OpenRecordset("select * from jxygfxsj")
Set rs = Data1.Recordset
rs.AddNew
为什么到最后一句总出错,说数据库或对象是只读的
急,,,谢谢...