Pessoal,
estou usando a variável abaixo para buscar uma informação no meu banco de dados e retornar a partir de um label.

funciona assim, eu digito no meu textbox o numero do lote (234) e ele me retorna a descrição do meu material no meu label.
só que estou tendo problemas ao executar o código, considerando que o banco de dados é separado do excel. Alguém pode me auxiliar?

Private Sub PesquisaLote()
    Dim conn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim sql As String
    Dim CodLote As String
    Dim DescLote As String
    
    CodLote = txt_lote01.Text

    Set conn = New ADODB.Connection
    With conn
        .Provider = "Microsoft.JET.OLEDB.4.0"
        .ConnectionString = "Data Source=" & caminhoCompleto & ";Extended Properties=Excel 8.0;"
        .Open
    End With

   sql = "SELECT * FROM [Fornecedores$] WHERE [LOTE] =  " & CodLote & ""
   
    Set rst = New ADODB.Recordset
    With rst
        .ActiveConnection = conn
        .Open sql, conn, adOpenDynamic, _
              adLockBatchOptimistic
    End With

    If rst.EOF = False And Not rst.BOF Then
        DescLote = rst.Fields("MATERIAL")
        lbl_bloco01.Caption = DescLote
    Else
        MsgBox "Não Localizada !!!"
        lbl_bloco01.Caption = " "
    End If

    ' Fecha o conjunto de registros.
    Set rst = Nothing
    ' Fecha a conexão.
    conn.Close
    
    

End Sub

abaixo o erro quando executo a macro. Também estou anexando o modelo.