Vc pode usar uma conexão ADO com ODBC...

 

Tente assim:

 

Configure na fonte de dados(ODBC) o nome da fonte de dados, no caso "Arquivos DBase". Por exemplo, na fonte de dados, na janela "Fonte de dados de usuário" selecione a opção "Arquivos DBase", depois clique em configurar... na versão escolha "DBase III". Se estiver marcada a opção "Usar pasta atual" desmarque-a e escolha a pasta q contém o arquivo Dbase q vc vai usar clicando no botão "Selecionar pasta..." Cliquem em OK e feche a janela.

 

No seu projeto vb faça assim:

 

Dim banco As ADODB.Connection
Dim record As ADODB.Recordset, cnn As String

 

Set banco = New ADODB.Connection
Set record = New ADODB.Recordset
cnn = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Arquivos do dBASE;Initial Catalog=caminho_do_arquivo_DBase" 'Não coloque o nome do arquivo, somente a pasta em q ele se encontra
banco.Open cnn
record.CursorLocation = adUseClient
record.Open "Select * from NOME_DO_ARQUIVO_DBASE ORDER BY CAMPO DESC", banco 'Coloque o nome do arquivo SEM a extensão *.DBF e vc pode indexar pelo campo q desejar pelo ORDER BY, no caso DESC é decrescente.

 

tente e veja se dá certo...

 

qq problema é só postar

 

t+

Sem usar ODBC(é para DBASEIV mas presumo que funciona para DBASEIII):

 

Function OpenDBFConn(Path)

  Dim Conn As Connection
  Set Conn = CreateObject("ADODB.Connection")
  Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                   "Data Source=" & Path & ";" & _
                   "Extended Properties=""DBASE IV;"";"
  Set OpenDBFConn = Conn
 
End Function
Private Sub Command1_Click()

'Abir Conexão para ficheiros DBF em C:[Nome do Directorio]
Dim DBConn As Connection
Set DBConn = OpenDBFConn("C:     estes")

'Criar um novo ficheiro DBF chamado Persons.DBF
DBConn.Execute "Create Table Persons (Name char(50), City char(50), Phone char(20), Zip decimal(5))"

 

End Sub

Private Sub Command2_Click()

'Inserir alguns registos na Tabela Persons
Dim DBConn As Connection
Set DBConn = OpenDBFConn("C:     estes")
DBConn.Execute "Insert into Persons Values('Alex P. Nor', 'Mexico','458962146','14589')"

End Sub

Private Sub Command3_Click()

'Abir  recordset da Tabela  Persons
Dim DBConn As Connection
Set DBConn = OpenDBFConn("C:     estes")
Dim Persons As Recordset
Set Persons = DBConn.Execute("Select * from [Persons#DBF]")

End Sub

Valeu galera deu certo obrigadao