I think that your problem is that DBF are not supporting the DISTINCT clause.

>Hi,
>
>My VB6 written application using ADO 2.6 to pull
>some data from my dbf file is not giving me distinct
>record. Below is my code which is not giving me distinct
>record. I check Microsoft website and there is a article
>on this but is based on SQL server 6.5. It url is :
>http://support.microsoft.com/directory/article.asp?ID=KB;EN-US;Q181479&LN=EN-US&rnk=1&SD=msdn&FR=1&qry=distinct&src=DHCS_MSPSS_msdn_SRCH&SPR=ADO&
>
>Please kindly advise me on how to solve this issue
>
>
> cn.CursorLocation = adUseServer
>
> rs.Open "SELECT DISTINCT Request_No, Outlet_ID, Trans_Date," & _
> "Delivery, Head_rem FROM inv_journal", cn, adOpenStatic, adLockReadOnly