Set cnHhsoft = New ADODB.Connection
    Dim strcnn As String
    With cnHhsoft
         .Provider = "Microsoft.Jet.OLEDB.4.0"
         .Properties("Data Source") = App.Path & "\data\hhsoft.wwh"
         .Properties("Jet OLEDB:Database Password") = "aaaaaaa"
         .Open
    End With