adAsyncExecute - The source is executed asynchronously.
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:=adAsyncExecute
rst("City") = "Village"
rst.Update
Debug.Print rst("City")
rst.Close
Set rst = Nothing
End Sub