Visual Basic - Como duplicar la estructura de una BD Access

Como puedo duplicar la estructura de una BD Access 2000.

Quiero copiar los campos y sus tamaños, de una tabla de Clientes a otra tabla diferente que esta dentro de la misma Base de Datos. Todo esto mediante un programa VB.

Esto funciona. Miralo para adaptarlo a tu necesidad.
El Señor te bendiga.

Set dB2 = New ADODB.Connection
Set rS2 = New ADODB.Recordset

´Listado de formulas entre fechas **************************************************Finicio = InputBox("Ingrese desde la Fecha que desea Consultar", "LISTADOS")
Ffinal = InputBox("Ingrese hasta que Fecha desea Consultar", "LISTADOS")

With dB2
.Provider = "microsoft.jet.oledb.3.51"
.ConnectionString = "F:\produc\Laborat.mdb"
.Open
End With
StrD = "Select Distinct Codigo,Codigo2,Fecha,Fulon,Turno,Partida,Partida2,ArtColEsp,Estado,Pedido,Cantidad,Kilaje from TBLarmadoFormula where Fecha between ´" & Finicio & "´ and ´" & Ffinal & "´ order by codigo, codigo2;"

With rS2
.ActiveConnection = dB2
.Open StrD
End With

Set RptArmaForm.DataSource = rS2
RptArmaForm.Sections("Sección4").Controls("etiqueta1").Caption = "Listado de Fórmulas entre Fechas"
RptArmaForm.Show

CON ESTO LO CREAS A MANO:

´*************************************************´Crea un objeto temporal TableDef nuevo
´*************************************************Set TBLnueva = dB.CreateTableDef("Temp")
With TBLnueva
´Crea los campos y los agrega al objeto TableDef nuevo. Debe hacer esto
´despues de anexar el objeto TableDef a la colección TableDefs de la
´base de datos.
.Fields.Append .CreateField("Indice", dbText, 4)
.Fields.Append .CreateField("Produc", dbText, 17)
.Fields.Append .CreateField("stAnte", dbSingle)
.Fields.Append .CreateField("stActu", dbSingle)
.Fields.Append .CreateField("Faltan", dbSingle)
´ Anexa el objeto TableDef nuevo a la base de datos Neptuno.
dB.TableDefs.Append TBLnueva
DoEvents
End With


CON ESTO LO COPIAS TAL CUAL LA TABLA ORIGEN:

Strg = "INSERT INTO TBLempleadosArmSue Select * from TBLempleadosArmSueTEMP where unidades<>´0,00´;"
dB.Execute Strg

Quiero duplicar la estructura de una tabla de Access 2000 en otra tabla nueva de la misma BD.

Me interesan los campos y su definición (tipo, tamaño, etc), no me interesan los datos.

Gracias.