🚀 go-pugleaf

Hi,

>
>Hi Vladimir,
>
>Yes, I tried it, but I had trouble following some of it because there is no
>explanation of what is happening, or supposed to happen.  

Yes, you are right but when idea comes it's so quickly that 
no time for comments - only for code. Sorry.

Now when I had created my site I will write some article on it 
that refer to my download. But my English bad so no warranty 
again.

Any automating idea (for Word, Excel, ADO, MS Project) revolve 
on object model and my samples come from it. 
In most cases Variant type gives many similarity with Visual 
Basic so when I create download I study VB samples from 
Microsoft Platform SDK.
As I understand your code you try to use SQL for creating 
tables but in SDK help you can see samples with object 
Table, Columns, etc:
(VB)

The following code demonstrates how to create a new table.

' BeginCreateTableVB
Sub CreateTable()

   Dim tbl As New Table
   Dim cat As New ADOX.Catalog

'Open the catalog.
   ' Open the Catalog.
   cat.ActiveConnection = _
      "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=c:\Program Files\Microsoft Office\" & _
      "Office\Samples\Northwind.mdb;"

   tbl.Name = "MyTable"
   tbl.Columns.Append "Column1", adInteger
   tbl.Columns.Append "Column2", adInteger
   tbl.Columns.Append "Column3", adVarWChar, 50
   cat.Tables.Append tbl

The right idea it is redo this code. Try it.
If you will have problems put  message here  and 
I try create such code and put it in the conference.

Best regards,
Vladimir.