Erro Arquivo não encontrado.

Segue imagem do erro.

Local do arquivo:

Segue linhas de Código:

Private Function fnAtualizaBanco(pSQL, rErro As String) As Boolean

    Dim dbConexao As ADODB.Connection
    
On Error GoTo ErroConexao
    
    Set dbConexao = New ADODB.Connection
    
    dbConexao.connectionstring = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Alura\VB4\Controle_de_Inventario.accbd;"
    dbConexao.Open
    dbConexao.Execute pSQL
    
    dbConexao.Close
    Set dbConexao = Nothing
    
    fnAtualizaBanco = True
    Exit Function
    
ErroConexao:
    rErro = Err.Description
    fnAtualizaBanco = False
    Set dbConexao = Nothing
    
End Function


    'atualiza banco
    'cria o UPDATE
    
    auxSQL = "update [ProdutoInfantins] set [Valor Total] = 1.5 where Código = 503"
    
    If fnAtualizaBanco(auxSQL, auxERRO) Then
        MsgBox "Acesso  atualizado com sucesso!"
    Else
        MsgBox "Ocorreu um erro: " & auxERRO
    End If
   
    
    sbAparenciaNormal
End Sub