Erro Ao Abrir Bdf

[Guest Gideoni Marques]

Estou tentando abrir tabelas em dbf so que esta dando o seguinte erro!!!

"Erro inesperado causado pelo drivers de banco de dados externo (8458)."

Estou usando a seguinte rotina!!

Dim Conn

Function AbrirDBFCon(Caminho) ' ABRE DBF

Dim Conn

Set Conn = CreateObject("ADODB.Connection")

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Caminho & ";" & "Extended Properties=""DBASE IV;"";"

Set AbrirDBFCon = Conn

End Function

e para chamar a funcao

Set rs = dbconn.Execute("Select * from tabela.dbf")

obrigado!!!!

Gideoni Marques Teodoro

[cassitos]

também usei dbf num projeto aki...

esta "tabela.dbf" no sql não precisa da extensão, basta informar no nome da tabela normalmente, se for tabela então: SELECT * FROM TABELA.

[Guest Gideoni marques]

Valeu pela dica cassitos mas infelizmente não adiantou!!

Estou achando que e alguma configuracao do micro pois em outros micros estao funcionando normalmente!!!!!

Valeu!!!