如何做？使用sql语句？

Question

private fn_blnAdd(dim intSum as integer) as boolean
    Dim strSql                      As String
    Dim adoRst                      As ADODB.Recordset
    
    On Error GoTo fn_blnAdd_ErrProc
    
    fn_blnAdd = False
  
    strSql = ""
    strSql = strSql & " UPDATE"
    strSql = strSql & " 表名"     
    strSql = strSql & " SET"
    strSql = strSql & " 要修改的字段=要修改的字段+" & intSum 
    strSql = strSql & " WHERE"
    strSql = strSql & " 条件"
   
    If adoRst.RecordCount > gcIndex_Code_0 Then
        adoRst.MoveFirst
        表格处理
     End If
     adoRst.Close
     Set adoRst = Nothing
     blnAdd =TRUE
     EXIT function 
fn_blnAdd_ErrProc:
    Set adoRst = Nothing
    MsgBox Err.Description
end function 也可以private fn_blnProc(dim intSum as integer,intCode as _   
                       integer)   as boolean
intcode 为功能键，代表+，-，*，/

Answer 1

忘了
gcIndex_Code_0 为定义的常量