Am I missing something really simple? I've updated the code below to run in Win10 but I'm still getting the internal error message (On Error GoTo FSFError)
On Error GoTo FSFError:
With ObjConnection
.Provider = "Microsoft.Ace.OLEDB.12.0"
'.Mode = adModeRead
.Mode = adModeShareDenyNone
.Properties("Ace OLEDB:Database Password") = "fsf1066"
.Open (databaselocation)
End With
Have I missed something? Do I also need to change something in Access?
On Error GoTo FSFError:
With ObjConnection
.Provider = "Microsoft.Ace.OLEDB.12.0"
'.Mode = adModeRead
.Mode = adModeShareDenyNone
.Properties("Ace OLEDB:Database Password") = "fsf1066"
.Open (databaselocation)
End With
Have I missed something? Do I also need to change something in Access?