PRB: Error 3251 Generated by Calling ADOX Methods (201716)

MORE INFORMATION

Steps to Reproduce Behavior

1. Start Visual Basic.
2. Choose a Standard EXE Project Type.
3. Add the following References to the Project:

      Microsoft ActiveX Data Objects
      Microsoft ADO Ext. for DDL and Security
   					

4. Paste the following code in the Load method of the default Form:

   Dim tbl As New ADOX.Table
   Dim cn As New ADODB.Connection
   Dim cl As New ADOX.Column
   Dim cat As New ADOX.Catalog
   
   'Open Connection to Data Source
   With cn
       .ConnectionString = "PROVIDER=sqloledb;DATA SOURCE=<your_server;USER ID=<uid>;PASSWORD=<pwd>;INITIAL CATALOG=pubs"
       .Open
   End With
   
   'Associate the Catalog object to the Connection.
   With cat
       .ActiveConnection = cn
   End With
   
   'Create a table definition.
   With tbl
       .Name = "MyADOXtbl"
   End With
   
   'Create a Column definition.
   With cl
       .Name = "Col1"
       .DefinedSize = 10
       .Type = adChar
       .Attributes = adColFixed + adColNullable
   End With
   
   'Add the Column definition to the table table definition.
   tbl.Columns.Append cl
   
   'Create the table on the Data Source
   cat.Tables.Append tbl