Access - Consulta de Creacion de tabla

Hola, Necesito hacer una consulta de creación de tabla donde el nombre de la nueva tabla sea un campo de un formulario. ¿Cómo puedo hacerlo? Gracias

Function CreaTabla()
Dim base As Database
Dim tdfNou As TableDef

Set base = CurrentDb

Set tdfNou = base.CreateTableDef(me.campo_form.name)

With tdfNou
.Fields.Append .CreateField("idalbaran", dbInteger)
.Fields.Append .CreateField("idproducto", dbInteger)
.Fields.Append .CreateField("descripción", dbText, 80)
.Fields.Append .CreateField("precio", dbLong)
.Fields.Append .CreateField("cantidad", dbInteger)
.Fields.Append .CreateField("descuento", dbInteger)
'etc,etc,etc...

base.TableDefs.Append tdfNou
End With
Set base = Nothing

End Function