Código:
el problema es q X es un campo numerico y me da error. 'Añadimos un nuevo registro
rs.AddNew
rs.Fields("Nombre") = strNombre
rs.Fields("X") = CInt(strX)
rs.Fields("Y") = CInt(strY)
'Guardamos el nuevo registro
rs.Update
Error de Microsoft VBScript en tiempo de ejecución error '800a000d'
No coinciden los tipos: 'CInt'
o
Provider error '80020005'
Tipo incorrecto. si no pongo el cint
es muy sencillo, pero estoy perdido.

