[VB] Access OLEDB & Access Passworld, 암호 설정되어있을시 연결문자열

    OLEDB 로 연결 (암호)
   With ConnDB
       .CursorLocation = adUseClient
       .ConnectionTimeout = 0
       .CommandTimeout = 0
       .Provider = "Microsoft.Jet.OLEDB.4.0"
       .Properties("Jet OLEDB:Database Password") = "password"  '암호
       .Open App.Path & "\sample.mdb" '디비경로
   End With

ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=True;Jet OLEDB:Database Password=password;Data Source=" & App.Path & "sample.mdb"