Utilizando um form, como faço uma busca eficiente em uma tabela externa com extensão "xlsb" sem precisar abrir este arquivo?

Question

Pessoal quem pode me ajudar com esta dúvida, tenho um arquivo  com extensão "xlsb" que utilizo como um banco de dados externo e em um form utilizo uma textbox para digitar a chave primaria para a busca do registro nessa tabela, só consegui através do código abaixo mais só abrindo o arquivo.

Private Sub Txt_N_Ocorrencia_AfterUpdate()

Dim linha As Integer
Dim N_Ocorrencia As Long
N_Ocorrencia = Txt_N_Ocorrencia

' (A linha abaixo localiza um registro sem o looping pelo método find em uma tabela externa e
'   para isso tenho que abrir o arquivo e depois fechar).

linha = Workbooks.Open("C:\Bco_Dados\Bco_Ocorr_Faltas.xlsb").Sheets("Bco_Ocorr_Falta").Range("A:A").Find(N_Ocorrencia).Row

  Txt_N_Ocorrencia = Sheets("Bco_Ocorr_Falta").Cells(linha, 2)
  Txt_D_Atual = Sheets("Bco_Ocorr_Falta").Cells(linha, 2)
  Txt_D_Ocorrencia = Sheets("Bco_Ocorr_Falta").Cells(linha, 3)
  Txt_N_NotaFiscal = Sheets("Bco_Ocorr_Falta").Cells(linha, 4)

  Windows("Bco_Ocorr_Faltas.xlsb").Activate
  ActiveWorkbook.Close

Alguém teria alguma outra solução para isso? agradeço desde já a ajuda.