如何在vba中打開一個只讀數據庫？

Question

我試圖打開一個訪問數據庫，只讀使用Excel VBA的形式。

這是我此刻的代碼，

 Set cn = CreateObject("ADODB.Connection") 
     cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBFullName & ";" 

     Set rs = CreateObject("ADODB.Recordset") 
     rs.Open "SELECT DISTINCT A_Name FROM app_tbl ORDER BY A_Name ASC", cn, , , adCmdText 

我怎樣才能打開它爲只讀？

Answer 1

嘗試

cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBFullName & ";Mode=Read"