I found an error in the last routine I gave to fix the backend password issue. This one works correctly.
Function Reconnect()
On Error GoTo ReconError
Dim db As DAO.Database, Source As String, pathNew As String, pathOld As String
Dim SourceName As String, i As Integer, j As Integer, k As...