Boa tarde.
Fiz uma adaptação do modeloCadastro3ListView está tudo a funcionar correctamente se tiver tudo na mesma pasta.
Mas o que pretendo é que as bases de dados acess fiquem num servidor mas ao colocar o caminho do servidor não funciona e dá erro, e o caminho do servidor está correto ja tentei por os ficheiros de acess numa pen e o ficheiro excel no ambiente de trabalho e tambem não funciona mesmo alterando o caminho do ficheiro .mdb.

Run-time error '-2147467259 (80004005)':
Não é um nome de ficheiro válido

Private Sub UserForm_Activate()
    Dim nConectar As String

    If Val(Application.Version) < 12 Then
    nConectar = "Provider=Microsoft.Jet.oledb.4.0;Data Source=" & ThisWorkbook.Path & "R:Catalogação GeralCATALOGAÇÃOREGISTOS SPCATdb_registosLSA.mdb"
    Else
    nConectar = "Provider=Microsoft.ace.oledb.12.0;Data Source=" & ThisWorkbook.Path & "R:Catalogação GeralCATALOGAÇÃOREGISTOS SPCATdb_registosLSA.mdb"
    End If
    cnnBanco.ConnectionString = nConectar
    cnnBanco.Open
    
        rstBanco.Open "SELECT ID, FIA,COA,DATA,LSA,NAPMD,CORG,NNA,REF,REF2,CATALOGADOR,SIC,LAU,LDU,TRDATA,TRSIC,TRLAU,TRCATALOGADOR, OBS, ESTADO FROM tbLSA", cnnBanco, adOpenKeyset, adLockOptimistic, adCmdText

   Indice = rstBanco.AbsolutePosition
    rstMant.Open "SELECT * FROM tbLSA", cnnBanco, adOpenKeyset, adLockOptimistic, adCmdText
    Activar
End Sub

fica cnnBanco.Open sublinhado pelo erro
Ficheiros:
link
https://www.dropbox.com/s/wie6s38ejmr7z ... s.zip?dl=0

Se me poderem ajudar agradeço imenso