If InStr("INSER,DELETE,UPDATE", UCase(stokens(0))) Then
        mycon.Execute sql
    Else
        Set rst = New ADODB.Recordset
        rst.Open Trim(sql), mycon, adOpenKeyset, adLockOptimistic
        Set ExecuteSQL = rst
    End If
我知道instr  是搜索替换所用到的语句，但是这段代码好像跟原有的格式不一样，各位大虾帮我看看

If InStr("INSER,DELETE,UPDATE", UCase(stokens(0))) Then   
'stokens(0) 应该是 sql 命令分解的第一个关键字
'Ucase 把字符串转为大写
'InStr([start, ]string1, string2[, compare])
'这行是省略了第一个参数.第一个参数是可以省略的,省略时为1 .规范写法不建议省略.
'如果 sql 的第一个命令是 这三个中的一个,那么执行它.
        mycon.Execute sql
    Else          '否则生成一个新的表对象,并返回它.
        Set rst = New ADODB.Recordset
        rst.Open Trim(sql), mycon, adOpenKeyset, adLockOptimistic
        Set ExecuteSQL = rst
    End If

谢谢大侠帮忙，我明白啦，我在做毕业设计，可是VB是我不经常使用到的语言，以后如果有其他问题，希望大侠也多多帮忙啊

谢谢大侠帮忙，我明白啦，我在做毕业设计，可是VB是我不经常使用到的语言，以后如果有其他问题，希望大侠也多多帮忙啊