Visual Basic - Problema con campo de BD

Hola a todos

Soy novato y autodidacta en Visual Basic 6 y tengo un problema con una base de datos que debe tener muchos campos. Este código me graba perfectamente los datos del txtDatos.Text en el campo “ Modelo1 “, pero lo que necesito es agregar un txtNombreCampo.Text para elegir a través de este textbox el nombre del campo en el cual grabar los datos

Private Sub cmdGrabar_Click()

With Rs
.Requery
.AddNew

!Modelo1 = txtDatos.Text ' así va bien

‘ *** pero debería ser así: !txtNombreCampo = txtDatos.Text (pero no), necesito que donde está : !Modelo1 ,me admita el nombre del campo que introduzca en el
!txtNombreCampo

.Update
.Requery
End With

End Sub

Lo he intentado de todas las formas que se me han ocurrido y he estado buscando pero no encuentro nada. Si alguien puede ayudarme, gracias de antemano.

Recorset!Modelo1=Recorset.Fields("NombreCampo")

Recorset.Fields(txtnombrecampo.text)=txtDato.text