[ACCESS-VB6] Proteggere Database da Password

[Folcus]

Esatto, trovato:

'Connessioni per le coperture in legno
Dim strConnect As String
Dim strProvider As String
Dim strDataSource As String
Dim strDataBaseName As String
Dim strPassword
strProvider = "Provider= Microsoft.Jet.OLEDB.4.0;"
strDataSource = App.Path
strDataBaseName = "\DB.mdb;"
strPassword = "Jet OLEDB:Database Password=DATABASE"
strDataSource = "Data Source=" & strDataSource & strDataBaseName & strPassword
strConnect = strProvider & strDataSource
ConnDB.CursorLocation = adUseClient
ConnDB.Open strConnect

grazie ancora! gentilissimo!