求教：VB修改Access表

Hi，各位大哥，小弟非计算机专业的无聊学VB玩，想照着网上做一个信息管理系统，用的是ADO，连接Access，功能是实现能够添加、修改、删除，表里有产品名称、使用位置、工具编号、性能正常（是/否），模拟的那个葫芦是用了个自动编号并设置为KEY键，好像我试验是成功的，但是我这四项都有需要重复，所以没设KEY键，所以现在在修改没办法实现。

Private Sub Command2_Click()
If Text1.Text = "" Or Text2.Text = "" Or Combo1.Text = "" Or Text4.Text = "" Then

'产品名称和编号，不接收空值

  MsgBox "请输入完整的信息！"

  Exit Sub

End If

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
     
  Dim Str2 As String
     
  Dim Str3 As String
     
  Str1 = "Provider=Microsoft.Jet.OLEDB.4.0;"
     
  Str2 = "Data Source=E:\Access_db.mdb;"
     
  Str3 = "Jet OLEDB:Database Password="

  conn.Open Str1 &