Exemplo:
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
t+