no se agrega un registro con insert into en access 2003

[gato_2006]

Hola de nuevo.

al hacer una consulta insert into pasando un formulario como parametro para usar los controles del mismo en dicha consulta, me sucede que no me da ningun error en la ejecucion del formulario, pero no se agrega ningun dato en la tabla.

el codigo que use es el siguiente:
Public Sub agregar_registro(ByVal txtdni As TextBox, ByVal frmpaso As Form)

'se crea una variable que va a ser usada para insertar el número de registro
Dim id As Integer
id = 0

'esta linea de código incrementa en 1 el valor de la clave del ultimo registro en la tabla
id = Nz(DMax("clave", "Padrones"), 0) + 1

'ejecuta la consulta y se agregan el registro a la tabla
CurrentDb.Execute "INSERT INTO Padrones(clave,fecha,historia_clinica,DNI,apellido s,nombres,edad,sexo,fecha_nacimiento,calle,nro,loc alidad,telefonos,obra_social,grupo_sanguineo,facto r,pertenece,medico_cabecera,observaciones,recibio_ hc)" & _
" VALUES(" & id & ",'" & Nz(frmpaso.Controls.Item("txtfecha")) & "','" & Nz(frmpaso.Controls.Item("txthistoria")) & "','" & txtdni.Value & "','" & frmpaso.Controls.Item("txtapellidos") & "'," & _
"'" & frmpaso.Controls("txtnombres") & "','" & Nz(frmpaso.Controls("txtedad")) & "','" & Nz(frmpaso.Controls("txtsexo")) & "'," & _
"'" & Nz(frmpaso.Controls.Item("txtfechanac")) & "','" & Nz(frmpaso.Controls.Item("txtcalle")) & "','" & Nz(frmpaso.Controls.Item("txtnro")) & "'," & _
"'" & Nz(frmpaso.Controls.Item("txtlocalidad")) & "','" & Nz(frmpaso.Controls.Item("txtel")) & "','" & Nz(frmpaso.Controls.Item("txtobrasocial")) & "'," & _
"'" & Nz(frmpaso.Controls.Item("txtgrupo")) & "','" & Nz(frmpaso.Controls.Item("txtfactor")) & "','" & Nz(frmpaso.Controls.Item("txtdonante")) & "','" & Nz(frmpaso.Controls.Item("txtmedico")) & "'," & _
" '" & Nz(frmpaso.Controls.Item("observaciones")) & "','" & Nz(frmpaso.Controls.Item("txtretiro")) & "')"

¿es correcto pasar un formulario coimo parametro o es mas acertado usar un array?

¿a que se debe que no me agrega ningun registro sin que me de ningun error para depurar? aclaro que instale el service pack 2 de office 2003.