vb问题,高手帮忙

<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>

<P>？</P><P>你没用ado的连接吗</P><P>应该没问题</P><P> Public aaa As New ADODB.Connection
 Public rsst As New ADODB.Recordset</P><P>打开 aaa ado连接</P><P>rsst.ActiveConnection = aaa</P><P>rsst.LockType = adLockOptimistic
rsst.CursorLocation = adUseClient
rsst.Source = "select * from mmm"
rsst.Open

rsst.addnew</P>

谢谢,我已经解决了,还是谢谢你,多交流