各位仁兄,小弟想请教一下怎样用VB+ACCESS实现将字段1里面的数字乘上一个系数并把所得的结果写入字段2中.谢谢了先!

我的程序代码:  
  private   sub   command1_click()  
  dim   cnn   as   adodb.connection  
  set   cnn   =   new   adodb.connection  
  cnn.open   ("provider=microsoft.jet.oledb.4.0;data   source=e:\shi\shi\5.19\毕业论文(设计)资料\pinzhong.mdb;persist   security   info=false")  
        cnn.execute   ("alter   table   new13   add   column   适合肥力密度   text")  
        if   turangzixun.feili   =   低肥力   then  
              cnn.execute   ("select   适宜密度*1.15   as   适合肥力密度   from   new13")   这里有问题吗?  
        elseif   turangzixun.feili   =   中等肥力   then  
            cnn.execute   ("select   适宜密度*1   as   适合肥力密度   from   new13")      
        elseif   turangzixun.feili   =   高肥力   then  
        cnn.execute   ("select   适宜密度*0.9   as   适合肥力密度   from   new13")  
        end   if

• · 推荐参考文章：
• IT调查：存储渠道急需补钙
• 简化XML处理详解(1)
• .Net的精髓XML和SOAP简析
• 一个基于MFC的XML封装类 CXml
• 用MySQL和PHP创建XML
• 使用C++和XML建立智能文档(三)
• 使用C++和XML建立智能文档(一)
• 使用C++和XML建立智能文档(二)
• 深入了解WebLogic的类装载机制详解
• 基于Java 2平台的引用类使用指南(1)

· 网友精彩回答：

用update语句吧  
  update   new13   set   适宜密度=   适宜密度   *   1.15