Sub OptionsParameter() Dim rst As ADODB.Recordset Set rst = New ADODB.Recordset rst.ActiveConnection = CurrentProject.Connection rst.CursorType = adOpenStatic rst.LockType = adLockOptimistic rst.Open "Select * from Employees", _ Options:=adAsyncFetch rst("City") = "Village" rst.Update Debug.Print rst("City") rst.Close Set rst = Nothing End Sub