Sub bug68628()

    Dim conn
    Set conn = CreateObject("ADODB.Connection")
    
    Dim rs
    Set rs = CreateObject("ADODB.Recordset")
    
    WScript.Echo "Connecting..."
    conn.Open "DSN=test52w;OPTION=16834"

    WScript.Echo "Creating table..."
    conn.Execute ("drop table if exists bug68268")
    conn.Execute ("create table bug68268 (id int, bigvalue bigint, vc varchar(32))")

    WScript.Echo "Inserting data..."
    conn.Execute ("insert into bug68268 (id, bigvalue, vc) values (1, 2222, 'abcde')")
    
    WScript.Echo "Selecting data..."
    rs.Open "SELECT * FROM bug68268 WHERE ID=1", conn, 0, 2
    rs("vc") = "fghijk"


    WScript.Echo "Updating data..."
    rs.Update
    rs.Close
    conn.Close

    WScript.Echo "Success!!!"
   
End Sub

bug68628