vb如何更新数据库中一条数据

Question

      Dim QueryStr As String
      Dim Rs As ADODB.Recordset
      Dim BelongToDay As Date
      Dim Group As Integer
      
      Set Rs = New ADODB.Recordset
      Set Rs.ActiveConnection = Conn
      Rs.CursorType = adOpenKeyset
      Rs.LockType = adLockOptimistic
      
      QueryStr = "SELECT * FROM N_Master  "
      Rs.Open QueryStr
      
      With Rs
            .AddNew
            .Fields("Product_Number") = lbl_Zong_ProductNum.Caption
            .Fields("Date_Time") = Date & Time
            .Update
      End With

Answer 1

'新增记录：
conn.execute "insert into 表名(...) values(...)"
'修改记录：
conn.execute "update 表名 set ... where ..."
'删除记录：
conn.execute "delte from 表名 where ..."

Answer 2

我不想用connect，我要用recordset，只保持表中有一条最新的记录，覆盖掉原来的记录。
用addnew会添加一条新记录，那如何覆盖原来的记录呢。谢谢

Answer 3

QueryStr = "SELECT * FROM N_Master  where Product_Number=lbl_Zong_ProductNum.Caption(条件改为你需要修改的项)"
      Rs.Open QueryStr
      
      With Rs
             .Fields("Product_Number") = lbl_Zong_ProductNum.Caption
            .Fields("Date_Time") = Date & Time
            .Update
      End With

Answer 4

Public connADO As ADODB.Connection
Public rstADO As ADODB.Recordset
Public UsersID As String
Public strsql As String
Public MsgText As String
Public Sub AdoOpDb()
Set connADO = New ADODB.Connection
connADO.Open "test1", "test", "test"Set rstADO = New ADODB.Recordset
With rstADO
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockBatchOptimistic
End With
strsql = "insert into  UsersInformation values('" & Trim$(txtUsersID.Text) & " ','" & Trim$(txtPassWord.Text) & " ')"
        Set rstADO = connADO.Execute(strsql)
        MsgBox "信息增加成功", 64, "增加信息提示"
        connADO.Close
        Call AdoOpDb
        Set rstADO.ActiveConnection = connADO
        rstADO.Source = "select * from UsersInformation"
        rstADO.Open
        Set fpSpread1.DataSource = rstADO
        fpSpread1.Refresh