如何让RS有edit属性啊～～～～～～：（ 急～～

Question

我的是这样写的：  
 
Option  Explicit  
 
Dim  Asc()  As  Long  
Dim  db  As  DATABASE  
 
Dim  Rec  As  Integer  
Private  rs  As  New  ADODB.Recordset  
Private  Conn  As  New  ADODB.Connection  
 
－－－－－－－－－－－－－－－－－－－－－－－  
 
Private  Sub  Form_Load()  
     
 Dim  strConn  As  String  
 Dim  i  As  Integer  
   
 '  连接数据库的字符串  
 '  连接带密码的数据库,直接在连接符后面加上Jet  OLEDB:DataBase  Password='您的密码'  
 '  连接Access97数据库需要使用Jet.OLEDB.3.5,Access2K和以上数据库使用Jet.OLEDB.4.0  
 strConn  =  "Provider=Microsoft.Jet.OLEDB.4.0;Data  Source="  &  App.Path  &  "\data\fw_data.mdb;Persist  Security  Info=False"  
   
 '  使用客户端数据游标  
 Conn.CursorLocation  =  adUseClient  
 '  打开Access的连接  
 Conn.Open  strConn  
   
 '  如果RecordSet的状态不是关闭状态,则关闭Recordset  
 If  rs.State  <>  adStateClosed  Then  rs.Close  
   
 '  Recordser打开表  
 rs.Open  "Select  *  from  fw_users",  Conn,  adOpenKeyset,  adLockOptimistic  
   
End  Sub  
 
－－－－－－－－－－－－－－－－－－－－－－－－  
 
这样  的RS  中有EDITMODE属性，  但是我看别人的代码，  RS有EDIT属性，  这是怎么回是啊？  
 
需要怎么改啊！谢谢！！

Answer 1

Edit是方法而非属性，调用AddNew方法或者Edit方法会设置EditMode属性。Rs.Edit
...
Rs.Update

Answer 2

那为什么我每次运行的时候都提示这里“未找到方法和属性”呢？我的调用是：Private Sub cmdEdit_Click()Dim i As Integer
i = mLv.SelectedItem.Index
rs.Seek "=", mLv.SelectedItem.Text
userEditname = rs.Fields("fw_name") & vbNullString
userEditpwd = rs.Fields("fw_pwd") & vbNullString
userEdittel = rs.Fields("user_tel") & vbNullString
userEditphone = rs.Fields("user_phone") & vbNullString
userEditemail = rs.Fields("user_email") & vbNullString
frm_edit_user.Show (1)If mSave Then
    rs.Edit
    rs.Fields("fw_name") = userEditname & vbNullString
    rs.Fields("fw_pwd") = userEditpwd & vbNullString
    rs.Fields("user_tel") = userEdittel & " "
    rs.Fields("user_phone") = userEditphone & " "
    rs.Fields("user_email") = userEditemail & " "
    rs.Update
    With mLv.ListItems(i)
        .SubItems(1) = rs.Fields("user_id")
        .SubItems(1) = rs.Fields("fw_name")
        .SubItems(2) = rs.Fields("user_tel")
        .SubItems(3) = rs.Fields("user_phone")
        .SubItems(4) = rs.Fields("user_email")
    End With
    mSave = False
End If
End Sub在结合上面的数据库的连接。。

Answer 3

谢谢！！我已经知道了原来是DAO 和ADO的区别，在DAO里才有EDIT方法谢谢啊