vbaで読み取り専用としてDBを開くには？

Question

Excel VBAを使用して読み取り専用の形式でアクセスDBを開こうとしています。

これは、読み取り専用として

 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"