1Const adLockBatchOptimistic = 4
2Const adUseClient = 3
3
4Set iconnTrans = CreateObject("ADODB.Connection")
5
6iconnTrans.open _
7 "Provider=SQLOLEDB.1;Data Source = localhost\sqlexpress;Integrated Security = SSPI;Initial Catalog=dw2"
8
9Set rsTrans = CreateObject("ADODB.Recordset")
10
11rsTrans.CursorLocation = adUseClient
12rsTrans.LockType = adLockBatchOptimistic
13rsTrans.open "SELECT * FROM ir_Transactions", iconnTrans