Как из Аксесса открыть нужный веб-сайт и провести на нем действия?

Private Sub Перевозчик_DblClick(Cancel As Integer)
Dim ie As Object
Dim stSite As String
Dim objClpb As New DataObject
Dim sStr As String
    
Me.Dirty = False
 
sStr = Me.№_Декларации
objClpb.SetText sStr
objClpb.PutInClipboard
 
 
stSite = HyperlinkPart(DLookup("СайтТрек", "Перевозчик", "[Перевозчик]='" & Me.Перевозчик & "'"), acAddress)
 
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
 
ie.Navigate stSite
 
End Sub

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Public Sub brauser()
    ShellExecute Application.hWndAccessApp, vbNullString, "http://www.mail.ru/", vbNullString, "C:\", 1
End Sub

Public Sub brauser(stSite As String)
    ShellExecute Application.hWndAccessApp, vbNullString, stSite, vbNullString, "C:\", 1
End Sub

Private Sub Перевозчик_DblClick(Cancel As Integer)
Dim ie As Object
Dim stSite As String
Dim objClpb As New DataObject
Dim sStr As String
Me.Dirty = False
sStr = Me.№_Декларации
objClpb.SetText sStr
objClpb.PutInClipboard
stSite = HyperlinkPart(DLookup("СайтТрек", "Перевозчик", "[Перевозчик]='" & Me.Перевозчик & "'"), acAddress)
brauser (stSite)
End Sub