Access - DECIMAL

Como puedo crear dinamicamente un campo numerico decimal ej:

Create Table MiTabla (Id Integer, Nombre Text (30))

Con esa sentencia puedo crear un campo "Id" numerico "Entero Largo" ¿Como hago para que sea "Decimal"

prueba con esto:
Sub CreateTableDefX()

Dim dbsNeptuno As Database
Dim tdfNuevo As TableDef
Dim prpBucle As Property
Set dbsNeptuno = OpenDatabase("Neptuno.mdb")
' Crea un objeto TableDef nuevo.
Set tdfNuevo = dbsNeptuno.CreateTableDef("Contactos")
With tdfNuevo
' Crea los campos y los agrega al objeto
' TableDef nuevo. Debe hacer esto después de
' anexar el objeto TableDef a la colección
' TableDefs de la base de datos Neptuno.
.Fields.Append .CreateField("Nombre", dbText)
.Fields.Append .CreateField("Numerado", dbDecimal)
' Anexa el objeto TableDef nuevo a la base de
' datos Neptuno.
dbsNeptuno.TableDefs.Append tdfNuevo
dbsNeptuno.Close
End Sub

Para mas detalles me encuentras en:
http://www.atpsoftware.net/atpindex.php