Как создать новую dbf таблицу в cp866 через ADO ? - VB

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

Почему не хочет работать кусок кода :

cnn.Open 'Driver={Microsoft Visual FoxPro Driver};' & _
                   'SourceType=DBF;' & _
                   'SourceDB=' + dbName + ';' & _
                   'Exclusive=Yes;'
Set RsT = New ADODB.Recordset
StrSQL:='Create Table T2 ( F1 char(7), F2  char(7) , N float ) '
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = cnn
cmd.CommandType = adCmdText 
cmd.CommandText = strSQL
cmd.Execute
' Кажется , что все OK
 
RsT.Open Source:='SELECT * from t2 ', _
    ActiveConnection:=cnn, _
    CursorType:=adOpenDynamic, _
    LockType:=adLockOptimistic, _
    Options:=adCmdText
' Здесь становится ясно , что Create Table не сработала

Решение задачи: «Как создать новую dbf таблицу в cp866 через ADO ?»

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

                             Set ws = DBEngine.Workspaces(0) 
 Set db = ws.OpenDatabase(MyDbName) 
 Set tdf = db.CreateTableDef(asNameT) 
 tdf.Connect = StrCnn: tdf.SourceTableName = SrcTableName
 db.TableDefs.Append tdf
                        