Вопрос по АДО - VB

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

Привет.
У мея вот такая проблема.
Хочу в VB при доступе к базе данных с DAO перейдти на ADO. У меня в старой программе есть код создание таблицы в базе и уже в этой таблице создаю поля:
Private db as database
Private td as TableDef
Private f as field
Private Sub cmdCreate_Click()
Set db=DBEngine.CreateDatabase("..\newdb.mdb", dbLangGeneral)
Set td =New TableDef
Set f=td.CreateField("NV", dbtext, 50)
td.Fields.Append f
Set f=td.CreateField("pogr", dbtext, 50)
td.Fields.Append f
td.Name="tblM70"
db.TableDefs.Append td
Set db=Nothing
Вот как можно такуюже программу сделать на ADO. Я порылся в свойствах ADO ничего похожего не нащел. Нет свойств для создания таблиц и полей в них.

Решение задачи: «Вопрос по АДО»

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

                            <font color="blue">Public</font> <font color="blue">Sub</font> AddDataWithAdo()
    <font color="blue">Dim</font> cnn <font color="blue">As</font> ADODB.Connection
    <font color="blue">Dim</font> strDbName <font color="blue">As</font> <font color="blue">String</font>
    <font color="blue">Dim</font> strSQL <font color="blue">As</font> <font color="blue">String</font>
    
    strDbName = <font color="teal">"D:\1\db10.mdb"</font>
    
    strSQL = <font color="teal">"INSERT INTO Table1 ( TextField, DateField, MemoField ) VALUES ("</font> _
      & <font color="teal">"'Text', #10/27/2006#, 'Large Text')"</font>
    
    <font color="blue">Set</font> cnn = <font color="blue">New</font> ADODB.Connection
    
    cnn.<font color="blue">Open</font> <font color="teal">"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="</font> & strDbName _
      & <font color="teal">";User Id=admin;Password=;"</font>

    cnn.Execute strSQL
    
    cnn.<font color="blue">Close</font>
    <font color="blue">Set</font> cnn = <font color="blue">Nothing</font>
<font color="blue">End</font> <font color="blue">Sub</font>
                        