CN = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & _ App.Path & "\BBDD\midb.mdb;Jet OLEDB:Database Password=clave"