Actualizar lista en formulario

Después de hacer el
DoCmd. OpenForm "x"
Haz:
forms!x!nombre = NewData
Salud.

Funciona, la sentencia que me has pasado, cuando se me abre el formulario datosclientes, este ya contiene el valor de la variable NewData. Pero cuando vuelvo al formulario en enfoque si que en el mismo campo y cuando le doy a Tab para pasar de campo, me dice que el dato NO Existe!, ¿Cómo puedo hacer para que no me de esté mensaje? ¿Tendría qué actualizar la lista para que no me diera este mensaje no? Te paso el código que tengo por si te es de ayuda. Gracias, y un saludo
Private Sub Procedencia_NotInList(NewData As String, Response As Integer)
'Pregunta al usuario si quiero añadir un nuevo valor a la lista
Dim strMessage As String
Dim dbsDATOSCLIENTES As Database
Dim rstTypes As DAO.Recordset
strMessage = MsgBox("El nombre " & "<< " & NewData & " >>" & " NO ESTÁ en la base de datos, ¿Quiere añadirlo? a la lista ?", vbOKCancel)
If strMessage = vbOK Then
Set dbsDATOSCLIENTES = CurrentDb
Set rstTypes = dbsDATOSCLIENTES.OpenRecordset("DATOSCLIENTES")
rstTypes.AddNew
DoCmd.OpenForm "datosclientes", acNormal
DoCmd.GoToRecord , , acNewRec
Forms!datosclientes!NOMBRE = NewData
rstTypes.Update
Response = acDataErrAdded
'Else
'Response = acDataErrDisplay
End If
End Sub

Al código le falta cerrar el formulario datosclientes, lo he comprobado.
Si se desea aprovechar para dejar que el usuario pueda completar más campos en datosclientes, entonces la rutina notinlist debe esperar hasta que el usuario lo cierre voluntariamente, para ello habrá que abrirlo como MODAL.
No recomiendo usar recordset al mismo tiempo que el form, y menos tal como se combina con el formulario
1-Mezclar comandos de recordset con comandos de formulario es erróneo
2-No hay ninguna asignacionde campos entre .addnew y .update.
A mi me funciona así:
Private Sub Procedencia_NotInList(NewData As String, Response As Integer)
'Pregunta al usuario si quiero añadir un nuevo valor a la lista
Dim strMessage As String
strMessage = MsgBox("El nombre " & "<< " & NewData & " >>" & _
" NO ESTÁ en la base de datos, ¿Quiere añadirlo? a la lista ?", vbOKCancel)
If strMessage = vbOK Then
DoCmd.OpenForm "datosclientes", acNormal
DoCmd.GoToRecord , , acNewRec
Forms!datosclientes!Nombre = NewData
DoCmd.Close acForm, "datosclientes"
Response = acDataErrAdded
End If
End Sub
Salud.

En el mensaje anterior me faltaba el código:
Private Sub Procedencia_AfterUpdate()
me.procedencia.requery
end sub
---
Matiz al penúltimo mensaje:
En tiempos yo sugería una alternativa con DAO usando recordsets y tal, para no tener que abrir el 2º formulario en MODAL.
Usando el recordset correctamente, como el dato clave queda agregado a la tabla maestra (lado 1), se termina el notinlist correctamente y entonces no hay que dejar el código en espera.
En ese caso:
1- se hace el addnew / update en el recordset
2- Se abre el formulario, pero no se va a un nuevo registro, sino que se abre filtrado por el valor que se ha agregado con el recordset
Salud.

El hacer un requery al combo para que la próxima vez agregue el newdata y no vuelva a pasar por el notinlist en ese valor, no se puede hacer en el mismo notinlist, creo, prueba en después de actualizar (afterupdate)
Salud.