oracle 01036 错误 vb.net

sSql = ""
sSql = sSql & " UPDATE TB" & vbCrLf
sSql = sSql & " set  ID = ID + 1 " & vbCrLf
sSql = sSql & "  ,CANCEL_D = :AAAA " & vbCrLf

sOraCmd.Parameters.Clear()
sOraCmd.CommandText = sSql
Tools.SetParam(sOraCmd, "AAAA ", "20090918")

sOraCmd.ExecuteNonQuery()
sOraCmd.Parameters.Clear()


Public Shared Sub SetParam(ByRef sOraCmd As OracleCommand, ByRef sParamName As String, ByVal sSetValue As Object, _
                            Optional ByVal bNoParam As Boolean = True, _
                            Optional ByVal sSetDbType As Object = OracleDbType.Varchar2)
    If bNoParam Then
        sOraCmd.Parameters.Add(sParamName, sSetValue)
    End If
    If sSetValue.GetType.FullName = GetType(String).FullName Then
        sOraCmd.Parameters(sParamName).Value = sSetValue.ToString
    Else
        sOraCmd.Parameters(sParamName).Value = sSetValue
    End If
End Sub


说明
执行select insert 的时候，没有错误
update就不行

权限足够 <