Access - Guardar los datos de una lista en un campo

En un formulario despues de insertar los datos en un cuadro de lista elegidos desde un cuadro de texto, necesito que estos se guarden en un campo de una tabla.
Gracias de anta mano

'todo este codigo va en el evento del cuadro combinado AL no estar en la lista
'preguntar al usuario si desea añadir un valor a la lista
Dim strMessage As String
Dim dbsCategoria As Database
Dim rstTypes As DAO.Recordset

strMessage = MsgBox("¿Está seguro de que desea añadir '" & NewData & " ' a la lista Categoría de Productos??", vbInformation + vbYesNo, "Mensaje")

If strMessage = 6 Then
'abrir la tabla de categorias de producto y añadir el nuevo valor
Set dbsCategoria = CurrentDb
Set rstTypes = dbsCategoria.OpenRecordset("Categoría de Productos") 'nombre de la tabla
rstTypes.AddNew
rstTypes![Categoría Producto] = NewData 'nombre del campo de la tabla
rstTypes.Update
Response = acDataErrAdded 'volver a consultar la lista
Else
Response = acDataErrDisplay 'Muestra el error
End If