Visual Basic - Copiar estructura de tablas Access

Hola a todos, espero me puedan ayudar, TENGO UNA BASE DE DATOS EN ACCESS, las cuales tengo varias tablas, y necesito copiar la estructura completa de para luego utilizar, como lo hago desde dentro del programa visual.

EJEMPLO
TENGO TABLA E01MES Y NECESITO CREAR LA TABLA E02MES, PERO DENTRO DEL PROGRAMA, ATRAVE DE LA BASES DE DATOS ABIERTA DIRECTAMENTE LO HAGO PERO, LA IDEA ES POR PROGRAMA.

Es importante poner como te estas conectando, suponiendo que te conectas por ADO, puedes hacerlo de esta forma:
Dim Rec As ADODB.Recordset
Dim sql As String
Dim cnbase As ADODB.Connection
Private Sub Form_Load()
Conectar
CrearTablas
End Sub
Sub Conectar()
On Error GoTo Errores
Dim Ruta As String
Dim NomBase As String
NomBase = "BaseDatos.mdb" 'Nombre de la BD de ACCESS
Ruta = App.Path & "\" & NomBase 'Direccion donde se encuentra tu BD de ACCESS
Conexion = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Ruta & ""
Set cnbase = New ADODB.Connection
cnbase.ConnectionString = Conexion
cnbase.Open Conexion
Set Rec = New ADODB.Recordset
Errores:
If Err.Number <> 0 Then Errores
End Sub
Sub Errores()
Msg = "Error Ocasionado Por:" + Chr(13) + Err.Description
MsgBox Msg, vbCritical, "Error" + Str(Err.Number)
Err.Clear
End Sub
Sub CrearTablas()
sql = "Select * Into E02MES From E01MES"
cnbase.Execute sql
sql = "Delete From E02MES"
cnbase.Execute sql
End Sub
Esta parte lo que hace es copiar todo el contenido y la estructura de la Tabla E01MES a la Tabla E02MES y despues borramos el contenido pero no la estructura de la Tabla E02MES.