Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Jack_Sam
Добрый день.
Задача скопировать файл с ftp на диск с помощью VB Access 2003
нашел на этом сайте http://forum.codenet.ru/showthread.php?t=32353 пример переноса инф с ftp в папку на диске, делаю так:

Public Declare Function FtpGetFile _    Lib "wininet.dll" Alias "FtpGetFileA" ( _    ByVal hFtpSession As Long, _    ByVal lpszRemoteFile As String, _    ByVal lpszNewFile As String, _    ByVal fFailIfExists As Boolean, _    ByVal dwFlagsAndAttributes As Long, _    ByVal dwFlags As Long, _    ByVal dwContext As Long) As Boolean Public Declare Function InternetOpen _    Lib "wininet.dll" Alias "InternetOpenA" ( _    ByVal sAgent As String, _    ByVal nAccessType As Long, _    ByVal sProxyName As String, _    ByVal sProxyBypass As String, _    ByVal nFlags As Long) As Long Public Declare Function InternetConnect _    Lib "wininet.dll" Alias "InternetConnectA" ( _    ByVal hInternetSession As Long, _    ByVal sServerName As String, _    ByVal nServerPort As Integer, _    ByVal sUserName As String, _    ByVal sPassword As String, _    ByVal nService As Long, _    ByVal dwFlags As Long, _    ByVal dwContext As Long) As Long Public Declare Function InternetCloseHandle _    Lib "wininet.dll" (ByVal hInet As Long) As Integer Public Const INTERNET_SERVICE_FTP = 1 Public Const INTERNET_SERVICE_GOPHER = 2 Public Const INTERNET_SERVICE_HTTP = 3 ' Далее по кнопарю на форме: hINetSession = InternetOpen("IExplorer", 0, vbNullString, vbNullString, 0) hSession = InternetConnect(hINetSession, "10.100.1.139", 0, "yyyyyy", "332211", INTERNET_SERVICE_FTP, 0, 0) If FtpGetFile(hSession, "iq/Адреса.xls", "E:\iq\FTP\1\Адреса.xls", False, 0, 1, 0) = False Then MsgBox "не удалось" Else MsgBox "работа выполнена" End If Call InternetCloseHandle(hSession) Call InternetCloseHandle(hINetSession)

Переменная hSession=0, переменная hINetSession принимает не нулевое значение.... скачать файл по ftp не получается

помогите разобраться, что сделано не так