求助，VB6.0更新ACCESS数据库中某一条信息内容的代码。谢谢。

各位大神，各位版主，请大显身手，各显神通。

更新某一行的数据其实质就是修改某一行的数据。
修改和删除某一行数据基本上都是以ID为依据进行操作的，因为只有ID没有重复值。
你的窗体上添加一个text2控件，用来填写某一行的ID。
如果这个窗体是用来登记“坏点”的，那么还要添加一个“更新”的命令按钮。

Private Sub Command1_Click() '单击更新按钮
  On Error Resume Next
Dim sc As Integer
 sc = MsgBox("确实修改这条记录吗？", vbOKCancel, "提示信息")
 If sc = 1 Then   '运行时如果用户点击的是MsgBox提示框的"确定"按钮，返回值是1
 Dim conn As New ADODB.Connection
 Dim RS As New ADODB.Recordset
 Dim Str1 As String'下一行中的  Access_db.mdb 换成你登记坏点的表名称
    Str1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Access_db.mdb;Jet OLEDB:Database Password="
 conn.Open Str1
 strsql = "select * from 坏点 where ID =" & Val(Text2.Text) & ""
 RS.Open strsql, conn, 3, 3
 If RS!ID = Val(Text2.Text) Then    '由于系统数据库使用的是自动编号作为主键    '因此以ID编号字段的内容作为判断的依据    'rs!中的！是变量类型定义符号
    RS!设备编号 = Combo1.Text
    RS!抽屉台车 = Combo2.Text
    RS!维修内容 = Text1.Text
    RS!坏点位置 = Combo3.Text
    RS!确认状态 = Combo4.Text
    RS!更新时间 = now  '需要在你登记“坏点”的access表中添加一个字段，以记录维修和更新的时间，用来指标考核
 RS.Update
 RS.Close
 conn.Close
     MsgBox "修改记录成功！"
 Else
    MsgBox "不存在此记录！"
 Exit Sub
 End If
 End If
  End Sub
使用代码时请与你表中的字段校对一下。
仅供参考

回复楼主 wangyiaihu：
你的图中的各记录均有一个 ID 记录，这个应该是数据表的主键，是唯一的，不会重复
因此，更新记录的SQL 语句应该是：
strSQL = "Select * From 数据表名 Where ID=Val(MSHFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0)) "
MSHFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0)就是图中第一列的数据，点击那一列，就是那一列的 ID
最后使用 Update 方法更新数据即可。