With con_AC
        .Provider = "Microsoft.ACE.OLEDB.12.0" 
        .Properties("Jet OLEDB:Database Password") = "Test"
         .Open strPfad & strDatei
    End With

Wer aufhört sich zu verbessern, hört auf gut zu sein.