создать таблицу на основе recordset ?

[profik777]

помогите найти ошибку. Ругается на "Invalid field data type" на строчке Set myF = myTab.CreateField......

---------------------------
Sub temptable(ByVal tabname As String, ByVal ftable As adodb.Recordset)
Dim myDb As Database
Dim myTab As TableDef
Dim myF As Field

Set myDb = CurrentDb()
Set myTab = myDb.CreateTableDef(tabname)

ftable.Open
For cfield = 1 To ftable.Fields.Count()
Set myF = myTab.CreateField(ftable.Fields.Ite m(cfield).Name, ftable.Fields.Item(cfield).Type)
myTab.CreateField
myTab.Fields.Append myF
Next cfield

myDb.TableDefs.Append myTab
ftable.Close

End Sub

[profik777]

задачку решил через ADOX