Nadogradnja access aplikacije putem Interneta

Code:
Option Compare Database
Option Explicit
Private Declare Function URLDownloadToCacheFile Lib "urlmon" Alias "URLDownloadToCacheFileA"  _
(ByVal lpUnkcaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwBufLength _
As Long, ByVal dwReserved As Long, ByVal IBindStatusCallback As Long) As Long

Function DownloadFile(URL As String) As String
Dim szFileName As String
szFileName = Space$(300)
If URLDownloadToCacheFile(0, URL, szFileName, Len(szFileName), 0, 0) = 0 Then DownloadFile = Trim(szFileName)
End Function

Private Sub Poziv()
Dim tmp As String, fName As String, Pos As Long, fPath As String
tmp = DownloadFile("http://neki.com")
'Ovdje bi trebalo provjeriti if tmp<>"" pa ako jeste provjera jeli podignuta 
'app ako je zatvoriti i brisati ili promijeniti ime i sada dole novu ver. nakopirati 
fPath = "C:\Mojaapi.mde"
FileCopy tmp, fPath
Kill tmp
End Sub