Como actualizar registros de una tabla desde una consulta

Tengo una tabla (Pacientes) con múltiples registros: código, nombre, estado, fecha de gestión y otros mas, necesito actualizar el campo estado solo para los registros que cumplan cierta condición. Realicé una consulta (actualización_estados) que extrae de la tabla Pacientes los registros que debo actualizar (identificados por el código) y para cada uno muestra el nuevo "estado" que es el campo a actualizar en la tabla Pacientes, estoy utilizando este código pero solo puedo cambiar un estado a la vez y solo cuando ingreso a ese registro, intenté con un código que vi en una página pero no me ha funcionado, ¿me podrían orientar? Gracias

Private Sub ACTUALIZAR_Click()
Dim reg As DAO.Recordset
Set reg = "SELECT * FROM CAMBIO_ESTADO_AUTOMATICO_PACIENTES2"
If reg.RecordCount > 0 Then
reg.MoveLast
reg.MoveFirst
For I = 1 To reg.RecordCount
If Me.CODIGO_PACIENTE.Value = Me.CODIGO_PACIENTE_AUTOMATIZACION Then
Me.ESTADO.Value = Me.NUEVO_ESTADO
Me.ULTIMA_GESTION.Value = Me.FECHA_GESTION
Me.ESTADO.Requery
Me.Refresh
End If
reg.MoveNext
Next I
End If
End Sub