Como fazer um Select num arquivo .dbf?

Dim gwsMainWS As Workspace
Dim DbTemp As Database
Dim Tabela As Object
Set gwsMainWS = Workspaces(0)
Set DbTemp = gwsMainWS.OpenDatabase(App.path & "NomedaPasta", False, False, "Dbase III;")
Set Tabela = DbTemp.OpenRecordset("Select * from Tabela Order by Nome ASC") ' onde Nome é um campo nome(string), Tabela é o arquivo denominado "Tabela.Dbf" contido na sub pasta "NomeDaPasta" do seu app.
Tabela.MoveMin
Dim Resp As Integer
   Resp = vbYes
   While Resp = vbYes
      Resp = MsgBox(Tabela("Nome") & Chr(13) & "Próximo registro?", vbYesNo)
      Tabela.MoveNext
   Wend
Tabela.Close
Set Tabela = Nothing
DbTemp.Close
set Dbtemp = Nothing
gwsMainWS.Close
Set gwsMainWS = Nothing

 

Veja se funciona... Abraços, Sidnei

Eis alguns exemplos de como trabalhar com ado + DBFs:

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

Renato