Access2K (ADO) & SQL2K - удалить/создать таблицу - VB

Формулировка задачи:

Hi, all! Есть вопрос: как через ADO(ADOX) создать и удалить таблицу на SQL Server2k (клиент - на абсцессе 2000)? Если использовать cnn.Execute ('ла-ла-ла') - то оно работает на ура, а вот как сделать это через коллекции? (Dim cnn as new ADODB.Connection) В ответ на попытки работать через коллекции выдается сообщение : 'Object or provider is not capable of performing requested operation.', Error Code : 3251

Решение задачи: «Access2K (ADO) & SQL2K - удалить/создать таблицу»

textual
                            Листинг программы 
                        

                            Sub CreateTable()
 
   Dim tbl As New Table
   Dim cat As New ADOX.Catalog
 
'Open the catalog.
   ' Open the Catalog.
   cat.ActiveConnection = _ 
      'Provider = SQLOLEDB;......'
 
   tbl.Name = 'MyTable'
   tbl.Columns.Append 'Column1', adInteger
   tbl.Columns.Append 'Column2', adInteger
   tbl.Columns.Append 'Column3', adVarWChar, 50
   cat.Tables.Append tbl
 
End Sub
                        