Valeu pessoa, mas consegui fazer depois de quebrar a cabeca. Alem da conexao, um dos problemas que estava enfrentado era com o nome do arquivo, antes era "mat_nad_cadastro". Ocorria um erro de automacao. Diminui o tamnho do arquivo para que ficasse com ate 8 digitos. E ai funcionou... Mas vou me certificar se esse foi realmente o erro que estava cometendo!
Mesmo assim valeu a força!
"mat_cad.dbf"
Public rs2 As ADODB.Recordset
Function AbrirDBF()
Dim conn3 As ADODB.Connection
Set conn3 = New ADODB.Connection
Set rs2 = New ADODB.Recordset
conn3.Open "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=c:JuniorTesteTESTE_dbf;"
rs2.Open "SELECT * FROM mat_cad", conn3
x = rs2("nda")
Set rs2 = New ADODB.Recordset
Texto_Sql = "Select * From mat_cadastro where nda = '280'"
Set rs2 = conn3.Execute(Texto_Sql)
Set AbrirDBF= conn3
End Function
