dim cmd as OleDBCommand
        cmd =congogoit.createcommand()
        cmd.commandtext="sys(3055,2000)"
        cmd.ExecuteNonQuery()

        cmd = New OleDBCommand("Update invoiceh set status=?,testtrn =?, ccresult=?, ccerror=?  "  & _
          " where unic=? ", congogoit)

        cmd.Parameters.Add("@status", OleDbType.numeric).Value =  1         
        cmd.Parameters.Add("@testtrn", OleDbType.numeric).Value =  1         
        cmd.Parameters.Add("@ccresult", OleDbType.VarChar,  65 ).Value = trim(VPSTxID)+"{"+trim(TxAuthNo)+"}{"+trim(AVSCV2)+"}"
        cmd.Parameters.Add("@ccerror", OleDbType.VarChar,  60 ).Value = "{"+trim(Status)+"}"
        cmd.Parameters.Add("@unic", OleDbType.VarChar,  10 ).Value =sesion_unic

        cmd.connection=congogoit
        cmd.ExecuteNonQuery()
        congogoit.Close()