Sub bug9767()

    Dim conn
    Set conn = CreateObject("ADODB.Connection")
    
    Dim rs
    Set rs = CreateObject("ADODB.Recordset")
    
    WScript.Echo "Connecting..."
    conn.Open "DSN=test"

    WScript.Echo "Creating table..."
    conn.Execute ("drop table if exists bug9767")
    conn.Execute ("create table bug9767 (id int, `column name` varchar(32))")

    WScript.Echo "Inserting data..."
    conn.Execute ("insert into bug9767 (id, `column name`) values (1, 'abcde')")
    
    WScript.Echo "Selecting data..."
    rs.Open "SELECT * FROM bug9767", conn, 1, 2
    rs("column name") = "fghijk"


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

    WScript.Echo "Success!!!"
   
End Sub

bug9767