Set db = ws.OpenDatabase (App.Path & "\gestion.mdb", False, False, "MS Access;PWD=leMotDePasse")
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionbonne chance
Public ObjADO As New ADODB.Connection
Public ComdADO As New ADODB.Command
ObjADO.Provider = "Microsoft.jet.OLEDB.4.0"
ObjADO.Open "Data Source=Chemine\DB.mdb;Jet OLEDB:Database Password=" & MP
ComdADO.ActiveConnection = ObjADO