VB6.0 用ADO修改Access数据库中指定某行某列的单元内数据

VB6.0真正的ADO用得好的是ADO控件。介绍ADO类和ADO控件两种办法：

一   ADO类，在工程找到引用，在引用里找到Data Object 2.5以上版本，Command事件中写：

Dim cnn As ADODB.Connection
Dim rs As ADODB.RecodeSet
Set cnn As New ADODB.Connection
Set rs As New ADODB.RecordSet
cnn.ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;Data Source="+ACCESS相对完整路径名    '//你那明明就是ACCESS2007的怎么会以mdb做后缀，这是2007以上版本字符串
cnn.Open
cnn.Excute "Update SSSSSS Set 八爪鱼='XXX' where 用户名='八爪鱼'"

但是这种方法移植性差，ADO类文件要跟着安装包走

二 ADO控件，在工程里找到部件，部件里加ADO Data Control 6.0，随便拖一个到窗体，Visible隐藏起来，按钮事件中加代码，

Adodc1.ConnectionString=="Provider=Microsoft.ACE.OLEDB.12.0;Data Source="+ACCESS相对完整路径名
Adodc1.RecordSource="Select * from SSSSSS where 用户名='八爪鱼'"
Adodc1.Refresh    
While Not Adodc1.RecordSet.EOF
   Adodc1.RecordSet.Fields("用户名")="八爪鱼"
   Adodc1.Update
Loop

update SSSSS set 用户名='XXX' where 用户名='八爪鱼'

你用ADO控件还是对象呢？