请问如何批量修改数据库指定项目的另一列值

有一个数据库，其中有两个列分别是“重量”和“单位”，现在我已经可以“单位”列内容进行无重复性列表和筛选，我的程序是：

无重复性列表语句：
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=variation.mdb;Persist Security Info=False"
    sql = "select distinct 单位 from variation"
    rst.Open sql, conn, adOpenKeyset, adLockOptimistic
    Combo1.Clear
    Do While Not rst.EOF
        Combo1.AddItem (Trim(rst(0)))
        rst.MoveNext
    Loop
    rst.Close
    conn.Close

筛选语句：
sql = "Select * From variation Where  单位 = '" & Trim(Combo1.Text) & "'"

现在想做出这样：
Combo1先下拉出单位项例如“公斤”，进行筛选，然后在另一个Combo项中下拉出“克”选项，点击一个Command按钮“转换”，数据库里所有“单位”是“公斤”的“重量”值都乘以1000，同时，“单位”项是“公斤”的也变化为“克”，
请问这个Command按钮语句怎么写？谢谢！