Adding a table

[Stevie]

I'm trying to create a table in Access via VB using ADO.

I keep getting the error message :

3251 - Object or provider is not capable of performing requested operation.

This is the code I'm using ...

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

cat.ActiveConnection = conCrowd

With tbl

  .Name = "TempTable"

  .Columns.Append "Field1", adVarWChar
  .Columns.Append "Field2", adVarWChar
  .Columns.Append "Field3", adVarWChar

End With

cat.Tables.Append tbl

Set cat = Nothing

Can somebody tell me whats going on?