数据库修改保存问题

Question

假如我数据库里有三个属性A，B，C，其中A为主键。三个文本框分别显示了三个属性的值A1，B1，C1，现在我想要修改文本框里的值为A1，B1，C2，然后保存到数据库里，应该怎么做？？？
要用到哪些函数？注意什么问题？？

Answer 1

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim SqlStr as string
cn.open "provider=Microsoft.Jet.oledb.4.0;" & "data source=" & App.Path & "\Data\Data.mdb"
'App.Path & "\Data\Data.mdb" 是你数据库所在的路径和文件名
'假设你存放ABC这些属性的表名为TEST
SqlStr = "selet * from TEST where A ='" & A1 & "'"
With rs
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Open SqlStr, cn
    Select Case .RecordCount
        Case 0     '说明不存在主键A值为A1的记录
            '给出出错信息
         Case 1     '说明存在唯一主键A值为A1的记录
           .Fields(2) = text3            'text3的值即为C2，fields(2)即为C字段
          .Update
        Case Else     '说明存在多个主键A值为A1的记录
        
    End Select
    .Close
End With
cn.Close