1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14:
Public Sub TesterSub Dim cn as ADODB.Connection Set cn = new ADODB.Connection cn.open connectionstring cn.begintrans cn.execute("UPDATE tblUsers SET UserName = 'John' WHERE ID = 1") cn.close set cn = nothing End Sub