Проблема с созданием DBF файлика. Поможите... - VB

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

Создаю файлик dbf через ODBC.
Все создается без ошибок, но файлик экселем не открывется. Говорит что это не DBF, а неизвестный формат. Показывает как текст...
В чем может быть проблема, кроме ДНК?

Private Sub Command1_Click()
Dim sqlstr As String
Dim cn As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim strPath As String
strPath = "c:\"
    cn.Open "DRIVER={Microsoft FoxPro VFP Driver (*.dbf)};SourceDB=" & strPath & ";SourceType=DBF;deleted=no;"
sqlstr = "create table c:\TEST.DBF (TEST char(32) not null)"
    cn.Execute sqlstr
sqlstr = "select * from PRODUCTS"
    Set rs = cn.Execute(sqlstr)
Do While Not rs.EOF
sqlstr = "insert into TEST (TEST) values ('" & rs("CODE") & "')"
        cn.Execute sqlstr
rs.MoveNext
    Loop
cn.Close
    Set cn = Nothing
End Sub

Решение задачи: «Проблема с созданием DBF файлика. Поможите...»

textual
                            Листинг программы 
                        
                            Sub CreatedBaseWithADOX()<br><br>Dim tbl As New ADOX.Table<br>Dim cat As New ADOX.Catalog<br><br>cat.ActiveConnection = _<br>"Provider=Microsoft.Jet.OLEDB.4.0;" & _<br>"Data Source=e:\My Documents\dbase;" & _<br>"Extended Properties=dBase IV;"<br><br><br>tbl.NAME = "NewBaseIV"<br>tbl.Columns.Append "Column1", adInteger<br>tbl.Columns.Append "Column2", adInteger<br>tbl.Columns.Append "Column3", adVarWChar, 50<br>cat.Tables.Append tbl<br><br>Set cat = Nothing<br><br>End Sub