Here is a VB sampel:
dim cn as adodb.connection
dim strSQL as string
...
set cn = new adodb.connection
cn.open database, user, password
...
cn.begintrans
strSQL = "insert into XXX(a, b, c) values (1, 'test', null)"
cn.execute strSQL
...
cn.CommitTrans