error:workgroup information file is missing or opened exclusely by another user

my code is:



Public Sub connectDB()
Set con = New ADODB.Connection
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DigitalSignage.mdb;Jet OLEDBatabase Password=123;"
End Sub