Colegas,
tenho dois arquivos em um diretorio. Arquivo "A" plan1 como varias colunas, nome, idade, registro, dtNascimento , o segundo arquivo "B" plan2, irá receber dados do arquivo "A" plan1, terei que abrir o banco de dados ou seja, arquiv A, ler o dados.
O codigo a abaixo tem esse objetivo.
Mas da o erro que a tabla nova$, não existe. Como faço esse processo.
Pode me ajudar?

Public Sub Busca_eventos()
'VARIAVEIS
'variavel que grava o texto que será pesquisado
Dim varText As String
Dim nomePlanilha, banco As String
Dim strSql As String

'define a linha, que trará o resultado da pesquisa:
Dim linha As Long

nomePlanilha = "nova"
banco = ThisWorkbook.Path & "" & nomePlanilha


'LIMPA OS DADOS DA SHEET ATUAL
    Range("A6:H1000").Select
'Selection.ClearContents
    Cells(1, 1).Select
    

varText = Sheets("Resultado").Range("E3").Value
varText = UCase(varText)



Set Db2 = OpenDatabase(banco, False, False, "Excel 8.0")


strSql = "SELECT * " _
& " FROM [nova$] " _
& " WHERE  [Descr. Primeiro Det.] = " & objCon.valorSql(varText) & ""

Set Db2 = OpenDatabase(banco, False, False, "Excel 8.0")
Set RSt2 = Db2.OpenRecordset(strSql)



linha = 5
'enquanto nouver dados:
While Not RSt2.EOF
linha = linha + 1
Cells(linha, 1) = RSt2("nome")

RSt2.MoveNext
Wend
'fecha o banco
RSt2.Close
Db2.Close
End Sub