[Resolvido]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

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.

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.

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

Resolvido