Si quieres el código es el siguiente:
DATA.CONNECT="DBASEIII;"
DATA.DATABASENAME="CARPETA DE LA BASE DE DATOS"
DATA.RECORDSOURCE="SELECT * FROM ARCHIVO WHERE CONDICION ORDER BY CAMPOS1,CAMPO2"
DATA.REFRESH
En Connect puedes poner:
ACCESS
DBASEIII;
DBASEIV;
DBASE 5.0;
EXCEL 3.0;
EXCEL 4.0;
EXCEL 5.0;
EXCEL 7.0;
FOXPRO 2.0;
FOXPRO 2.5;
FOXPRO 2.6;
FOXPRO 3.0;
LOTUS WK1;
LOTUS WK3;
LOTUS WK4;
PARADOX 3.x;
PARADOX 4.x;
PARADOX 5.x;
TEXT;
(Esto es para VB 4.0 para 5.0 o 6.0 serán los mismos incluyendo algunos mas)
saludos