Problema al crear una tabla con ADOX

[betooteb]

Hola, soy nuevo en estos foros asi que no se si aquí debería ir esto...

Antes que nada les digo que soy autodidacta y mis códigos tal vez no estén bien implementados pero al fin de cuentas funcionan.

el problema que tengo es el siguiente:

Creo una tabla en Access desde visual basic, pero quiero ver si hay manera de crear las columnas desde una variable, aquí les pongo el código

Private Function creartabla()
Dim dias As Variant
Dim tablanombre As Boolean
Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table
Dim a As Variant
a = 1

Set cat = New ADOX.Catalog
Set tbl = New ADOX.Table
Call main
cat.ActiveConnection = adcon

With tbl
.name = lblmes.Caption
.Columns.Append "idmes", adInteger
cat.Tables.Append tbl
Do Until a = 33
lblcampo = a
.Columns.Append "lblcampo", adVarWChar, 10
cat.Tables.Append tbl
a = a + 1

Loop

adcon.Close
End With
End Function

Todo funciona mi problema es que lblcampo toma el valor de 1,2 3 pero al momento de crear la columna no me toma la variable, por favor me urge corregir este error ya que me crea la tabla como lblcampo

de antemano muchas gracias por su ayuda