dim dstProducts as DataSet

        dstProducts=new DataSet()    
        dim congogoit as OleDBConnection
        dim myConnString as String    
        myConnString=System.Configuration.ConfigurationSettings.AppSettings("GOGOITConString")
        congogoit= New OleDbConnection(myConnString)
        congogoit.Open()

        dim cmd as OleDBCommand
        cmd =congogoit.createcommand()
        cmd.commandtext="set null off"
        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()