#DEFINE ADFLDMAYDEFER 0x00000002 #DEFINE ADFLDUPDATABLE 0x00000004 #DEFINE ADFLDUNKNOWNUPDATABLE 0x00000008 #DEFINE ADFLDFIXED 0x00000010 #DEFINE ADFLDISNULLABLE 0x00000020 #DEFINE ADFLDMAYBENULL 0x00000040 #DEFINE ADFLDLONG 0x00000080 #DEFINE ADFLDROWID 0x00000100 #DEFINE ADFLDROWVERSION 0x00000200 #DEFINE ADFLDCACHEDEFERRED 0x00001000Or a sum of two or more of them of course for a maximum value of 5118.
public oCon oCon = createobject("adodb.connection") oCon.Provider = "SQLOLEDB.1" oCon.ConnectionString = "Initial Catalog = SVEIN ;user id=sa;Data Source = CELERY450; Persist Security Info = False" oCon.open() public ors ors = createobject("adodb.recordset") #Define adUseClient 3 #Define adLockBatchOptimistic 4 #Define adCmdTable 2 With ors .Source = "Classes" .ActiveConnection = oCon .CursorLocation = adUseClient .LockType = adLockBatchOptimistic .Open EndWithAs always TIA.