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  是搜索替换所用到的语句，但是这段代码好像跟原有的格式不一样，各位大虾帮我看看

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

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