Access Vba Как изменить путь к источнику таблицы

Public Function SetLnk(myTableName As String, myLocation As String) As Long
' Установка присоединения таблицы с указанным именем к указанному файлу:
' возвращает 0, если все в порядке, иначе - номер возникшей ошибки
Dim MyTable As Object
    Set MyTable = DBEngine.Workspaces(0).Databases(0).TableDefs(myTableName)
    MyTable.Connect = ";DATABASE=" & myLocation
    SetLnk = ChkLnk(myTableName)
End Function

Public Function ChkLnk(myTableName As String) As Long
' Проверка присоединения указанной таблицы: возвращает 0, если все в порядке,
' иначе - номер возникшей ошибки
Dim MyTable As Object
    Set MyTable = DBEngine.Workspaces(0).Databases(0).TableDefs(myTableName)
    On Error Resume Next
    ' Открываем указанную таблицу и проверяем наличие ошибки
    MyTable.RefreshLink
    ChkLnk = Err.Number
End Function

myTableName = "1_Specialnosti"
myLocation = "C:\Users\Admin\Desktop\BD_Student_Kompitencii\222\Student.mdb"
myParol = "rewqazxcv1"
 
Dim MyTable As Object
Set MyTable = DBEngine.Workspaces(0).Databases(0).TableDefs(myTableName)
MyTable.Connect = ";DATABASE=" & myLocation + "; PWD=" & myParol
On Error Resume Next
MyTable.RefreshLink
If Err.Number = 0 Then
    'сюда код если всё правельно
ElseIf Err.Number = 3031 Then
    'сюда код если неверный пароль
Else
    MsgBox (Err.Number)
    'сюда код если непредвимимая ошибка
End If
Err.Clear