VBScript update query

See more:

VBScript

Hi

I have the following vbscript that extract data from a table and then itterating through the line items extracted and insert these line items into an excel sheet.

The script works 100 %.

I now need to impliment a change and that is when I itterate through the line items and the item is inserted into the excel spreadsheet I want to update that line items status from i.e not extracted to extracted.

Here is that portion of the code. could you assist me in order to get the update to work.

SQL3 = "SELECT * FROM PO_ITEM_Details WHERE Folder_ID = '" & FolderID & "' and Quantity_Received > 0"

    rstInv.Open SQL3, objcn

    WHILE NOT rstInv.EOF and x < 10
        x = x + 1
        objSht.Cells((47 + x),2).Value = rstINV("Item_Number")
        objSht.Cells((47 + x),3).Value = rstINV("Description")
        objSht.Cells((47 + x),4).Value = rstINV("Quantity_Received")
        objSht.Cells((47 + x),5).Value = rstINV("UOM")
        objSht.Cells((47 + x),6).Value = rstINV("Unit_Price")
        objSht.Cells((47 + x),7).Value = rstINV("Currency1")
        objSht.Cells((47 + x),8).Value = rstINV("EXT_Price")
        objSht.Cells((47 + x),9).Value = rstINV("New_EXT_Price")

        rstInv.MoveNext
    WEND

    rstInv.Close