更新所有编号一样的记录？

Question

Dim cn As New ADODB.Connection
            cn.ConnectionString = ""
            cn.Open
        Dim rs As New ADODB.Recordset
        Dim sql As String
            rs.CursorLocation = 3
            sql = ""
          rs.Open sql, cn, adOpenDynamic, adLockBatchOptimistic, adCmdTextrs
请问各位老大，上面的代码SQL语句怎么写呀？
商品名称是字段，我的意思是把‘商品编号’为text1.text记录的‘商品名称’前几个字改为text2.text,而‘商品名称'字段后面的字不改。例：商品名称=‘中草药 001'
    商品名称=‘中草药 002'
    商品名称=‘中草药 003'
        
我要把‘中草药’这三个改掉，后的001，002,003不改而更新所有记录！请大哥大姐们指教！谢谢

Answer 1

update biao set 商品名称='REPLACE('商品名称','中草药','" & text2.text & "')' where 商品名称 like '中草药%'

Answer 2

cn.ConnectionString ="Provider = SQLOLEDB;Server=(local);Database=数据库名;uid=sa;pwd="
sql="select * from 表名"

Answer 3

有几个'打多了
update biao set 商品名称=REPLACE(商品名称,'中草药','" & text2.text & "') where 商品名称 like '中草药%'已测试ok