Na verdade meu amigo o código todo está assim:
obs: Para cada ano, existe uma pasta diferente que guarda o arquivo mdb
ChDrive "C:"
ChDir "" + txtCaminho
DirSist = CurDir
Set CN = New ADODB.Connection
CN.Provider = "Microsoft.Jet.OLEDB.3.51"
CN.ConnectionString = DirSist + "BancoHoras.mdb"
CN.Open
no ConnectionString eu coloco o caminho do banco de dados, uma vez que pode ser escolhido o ano (pasta) que irá manipular.
E desse jeito, não funciona.