在Access＆＃39;中写入字段的记录。表

Question

问题：

我编写了这段代码，该代码应该写在 WPRCPart 字段的特定记录中，但由于某些未知原因，我运行时没有任何反应。

但是没有错误，只是这次执行没有产生任何结果。

WPRCPart 字段的数据类型为短文。

PartNo 字段的数据类型为数字，其值来自组合框中的值List，其中包含多个值。

有什么想法吗？

Dim conn As New ADODB.Connection
Dim connStr As String
Dim cmd As ADODB.Command
Dim rs As ADODB.Recordset

connStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & "mypath" & "NewVersion.accdb" & ";"
conn.ConnectionString = connStr
conn.Open

Set cmd = New ADODB.Command
With cmd
  .ActiveConnection = conn
  .CommandText = "UPDATE OverViewNew Set WPRCPart = 'Yes' WHERE PartNo = 9165267"
End With

Set rs = cmd.Execute
'rs.close