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

无重复性列表语句：
    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按钮语句怎么写？谢谢！

用updata轻松完成。

谢谢，请指教。

切记先备份在做实验！
update variation set 单位='克',重量=重量*1000 where 单位='公斤'

结果非常完美，谢谢！
另外还感谢您的提醒，备份对于一个程序员来说应该成为一种习惯，无论是平时学习还是以后工作，备份的思想十分重要。
感谢您对一个后辈新人的谆谆教导。