Opening a Recordset with Inconsistent Updates
Sub InconsistentUpdates() Dim rst As ADODB.Recordset Set rst = New ADODB.Recordset rst.ActiveConnection = CurrentProject.Connection rst.CursorType = adOpenStatic rst.LockType = adLockOptimistic rst.Properties("Jet OLEDB:Inconsistent") = True rst.Open Source:="Select * from Employees " & _ "INNER JOIN Projects " & _ "ON Employees.ClientID = Projects.ClientID", _ Options:=adCmdText rst("Projects.ClientID") = 1 rst.Update Debug.Print rst("Projects.ClientID") rst.Close Set rst = Nothing End Sub