为什么执行这个SQL文会出错！急！！！！

能连接上数据库！' 数据库连接对象
Private oradbGtmc As OraDatabasePublic Function gfcExecSql(pstrSql As String) As Integer
    
    '影响行数
    Dim lngAffectedRows As Long
    
On Error GoTo err_handler    gfcExecSql = 9
    
    '执行Sql语句
    lngAffectedRows = oradbGtmc.ExecuteSQL(pstrSql)
    
    'Check
    mlngAffectedRows = lngAffectedRows
    
    gfcExecSql = 0
    
    Exit Functionerr_handler:
    
    '取回错误号及错误信息
    mlngErrNum = Err.Number
    mstrErrStr = Err.DescriptionEnd Function这种方法能返回影响行数吗？