Problema con "OpenRecordset"

[jjaraba]

Hola tengo un problema con el "OpenRecordset" y es el siguiente:
En un formulario tengo un botón con el siguiente código

Private Sub CmdAñadir_Click()
On Error GoTo Err_CmdAñadir_Click

Dim TPuestos As Recordset
Set TPuestos = CurrentDb.OpenRecordset("Select * From T_Puestos")

TPuestos.AddNew

TPuestos.Fields!Puesto = Me.TxtPuestoNuevo

TPuestos.Update
TPuestos.Close


Exit_CmdAñadir_Click:
Exit Sub

Err_CmdAñadir_Click:
MsgBox Err.Description
Resume Exit_CmdAñadir_Click

End Sub

y lo que se supone que hace es añadir en la Tabla "T_Puestos" en el campo "Puesto" lo que tengo en el cuadro combinado "TxtPuestoNuevo" pero cuando pulso el botón me da error diciéndome que no coinciden los tipos, ¿que esta mal?

Gracias.