gaga高手帮忙

<P>我一直用VB写程序的</P>
<P>Private Sub OKButton_Click()
Dim SQL As String
SQL = "select * from usertable"
Dim rs As New Recordset
DataEnvi.Conn.Open
Set rs = DataEnvi.Conn.Execute(SQL)
rs.AddNew
rs.Fields(1).Value = "woooo"
rs.Update
DataEnvi.Conn.Close
End Sub</P>
<P>运行程序是总是说当前记录不支持更新,可能是提供程序的限制,也可能是选定锁定类型的限制</P>
<P>我以前开发是也是用rs.AddNew,不知怎么现在总出现以上情况,请帮忙,程序在rs.addnew 那里停止.我改用DATA控件的ADDNEW也不出现以上情况</P>

<PRE>你操作access应该没错吧？</PRE><PRE>rs的游标集设置错误，不能进行更新操作设置成rs.open conn,1,3肯定没问题</PRE><PRE> </PRE><PRE>还有解决方法就是：rs.Addnew    rs.UPdate改使用 conn.execute(insert into...) conn.execute(update ...set... )</PRE>

<P>以上的问题我改用ADO.CONNECTION解决了,还是谢谢你,现在又遇到一个问题</P>
<P>我目的是在我原来的数据库上动态新建一个表:,如下:</P>
<P>Dim DefDatabase As Database
     Dim DefTable As TableDef, DefField As Field, NewIdx As Index
     Set DefDatabase = OpenDatabase(App.Path ; "\db.mdb", 0, False, dbVersion30)
     Set DefTable = DefDatabase.CreateTableDef(TxtTableName)</P>
<P>上面是我的代码,运行到第三行的时候,总出现错误:</P>
<P>实时错误:3710</P>
<P>找不到可插入的isam</P>
<P>帮忙看看</P>