Dim conn Set conn = CreateObject("ADODB.Connection") conn.Open myconnectionstring conn.Execute "update sometable set somefield = 'some value' where someidfield = 'some id value'" conn.Close Set conn = Nothing