cmd.CommandType = adCmdText cmd.CommandText = "UPDATE tblClientTemp SET DocReceived = 1" cmd.Execute Options:=adAsyncExecute