连接受密码保护的文件

Question

我想连接受密码保护的访问。请告知我在哪里可以通过密码参数在下面的编码。

With Acon1 
    .Provider = "Microsoft.ACE.OLEDB.12.0" 
    .ConnectionString = "Data Source=" + ThisWorkbook.Sheets(1).Range("V24").Value 
    .Open 
End With 

With Rs1 
    .CursorLocation = adUseClient 
    .CursorType = adOpenDynamic 
    .LockType = adLockOptimistic 
    .ActiveConnection = Acon1 
    .Source = "Select * from Headcount where [Employee ID]=" & myvalue0l 
    .Open 
End With 

Answer 1

尝试：

With Acon1 
    .Provider = "Microsoft.ACE.OLEDB.12.0" 
    .ConnectionString = "Data Source=" + ThisWorkbook.Sheets(1).Range("V24").Value & _ 
";User ID=admin;Password=" 'Password 
    .Open 
End With