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

Sub CreatedBaseWithADOX()

Dim tbl As New ADOX.Table
Dim cat As New ADOX.Catalog

cat.ActiveConnection = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=e:\My Documents\dbase;" & _
"Extended Properties=dBase IV;"


tbl.NAME = "NewBaseIV"
tbl.Columns.Append "Column1", adInteger
tbl.Columns.Append "Column2", adInteger
tbl.Columns.Append "Column3", adVarWChar, 50
cat.Tables.Append tbl

Set cat = Nothing

End Sub