Гиперссылка в Access

[RAN]

Мяу!
Никак не могу разобраться с добавлением гиперссылки.
Нужно после добавления данных в таблицу проставить в поле "hypl" (тип - гиперссылка), гиперссылку на основе поля "код" (счетчик).
Т.е переписать для Access

Код (vb) Выделить Развернуть

Sub hypl()
Dim cl As Range
    With Range("Таблица1").ListObject
        For Each cl In .ListColumns("hypl").DataBodyRange
         ActiveSheet.Hyperlinks.Add cl, "D:\1tmp\" & CStr(cl.Offset(, -3).Value), TextToDisplay:=CStr(cl.Offset(, -3).Value)
        Next
    End With
End Sub


[RAN]

Сам спросил, сам отвечаю. 
Разыскал видео, которое все расставило по местам.
В результате получилось через AODB

Код (vb) Выделить Развернуть

    ctrSQL = "SELECT Таблица1.[Код], Таблица1.[hypl] FROM Таблица1"
    pRSet.Open ctrSQL, pCon, adOpenStatic, adLockOptimistic
        pCon.BeginTrans
    With pRSet
        Do While Not .EOF
            If IsNull(.Fields(1).Value) Then

                sSavePath = ThisWorkbook.Path & "\" & CStr(.Fields(0).Value)

                If Dir(sSavePath, vbDirectory) = "" Then
                    MkDir (sSavePath)
                End If

                DoEvents
                .Fields(1).Value = CStr(.Fields(0).Value) & "#" & sSavePath & "#"
                Debug.Print , .Fields(0), .Fields(1)
            End If
            .MoveNext
        Loop
    End With