VB6 + copier la structure d'une table

voila ce que j'ai utilisé :
Dim Conn As New ADODB.Connection
    Dim oRs As New ADODB.Recordset

Conn.Open "provider=vfpoledb;data source=C:\;"
    sQuery = "  SELECT *  FROM  c:\fich1.dbf   INTO dbf  c:\fich2.dbf"
    oRs.open Query,conn
 
ce que je cherche  a faire c'est de copie la structure du fich1 sans copier les enregistrement du fich1
(j'ai excuté la requette la-dessus et ne s'execute pas en VB6 ) mais  la requette elle même s'execute sous Foxpro )

INTO dbf n'est pas correct en VFP.
SELECT * FROM ... INTO TABLE ... WHERE .F. devrait fonctionner

(le where .f. permet de n'avoir aucun enregistrement, donc seulement la structure)