Colocou banco de dados em um estado que o impede de ser aberto ou bloqueado

Gostaria de um auxilio, não tenho muito conhecimento mas não consigo fazer algo que parece simples que é uma conexão no meu próprio banco de dados, segue as instruções abaixo:

Dim sql As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim i As Integer

Set cn = New ADODB.Connection
'cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\rodri\OneDrive\Área de Trabalho\bd teste\DBLogistica.accdb"
endereçoBD = "C:\Users\rodri\OneDrive\Área de Trabalho\bd teste\DBLogistica.accdb"
cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\rodri\OneDrive\Área de Trabalho\bd teste\DBLogistica.accdb; Persist Security Info=False;"
cn.Open

toda vez da o erro que o banco de dados não pode ser aberto ou bloqueado.

Boa noite. Só um pitaco.
Se está no drive não seria melhor somente extrair as tabelas e depois vinculalas?

Obrigado pelo pitaco crysostomo, mas era realmente pra saber como resolver o erro mas te agradeço

Olá Rodrigo,

O banco de dados está em diretório na rede?
Você está tentando acessar de outro banco de dados, atraves de um formulário?
Verifique se o banco de dados que vc quer acessar não está aberto no modo exclusivo ou no modo designer.

Dê mais detalhes, por gentileza.

Att,

Alexandre Fim

Alexandre Fim na verdade está na minha área de trabalho e não estou tentando acessar outro banco, apenas abrir uma conexão pra mim efetuar um select em SQL. Nas minhas pesquisas consigo efetuar update, insert, delete no docmd.runsql mas não consigo efetuar um select, apenas abrindo uma conexão, por isso minnha dúvida.

Rodrigo,

Por gentileza, envie uma cópia dos seu banco de dados, somente objetos (tabela/formulários/consultas/modulos e etc.) envolvidos no problema, para análise e solução do problema.

Att,

Alexandre Fim

Alexandre Finn desculpe a demora segue o banco, gostaria da resposta da consulta na caixa de listagem, que não estou conseguindo desde já agradeço.

Olá Rodrigo,

Nao veio o anexo do banco.
Verifique , por favor.

Att

FIM

Alexandre desculpe o banco estava muito grande, o problema da mensagem já resolvi só náo consigo fazer o select no listform com resultado da consulta em sql inclusive contem 3 botões com alguns teste que não consegui efetuar a consulta que vale apenas como teste, desde já te agradeço