Declare Function GetLastError Lib "kernel32.dll" () As Long
t = FtpPutFile(hSession, "c:\temp\a.txt", "sh.txt", 1, 0)
ErrorCode = GetLastError()

Private 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

Private 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
   
Private Declare Function FtpPutFile _
   Lib "wininet.dll" Alias "FtpPutFileA" ( _
   ByVal hFtpSession As Long, _
   ByVal lpszLocalFile As String, _
   ByVal lpszRemoteFile As String, _
   ByVal dwFlags As Long, _
   ByVal dwContext As Long) As Boolean
   
Private 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 Sub for_ftp()

hINetSession = InternetOpen("MyFTPClient", 0, vbNullString, vbNullString, 0)

hSession = InternetConnect(hINetSession, "ftps.host_name.ch", _
   "990", "usr_n", "password", 1, 0, 0)

Public Sub export()
'подключение к аксесснику
Dim connA As ADODB.Connection
Set connA = New ADODB.Connection
connStringA = "Data Source=C:\my_base.accdb"

With connA
.CommandTimeout = 20
.CursorLocation = adUseClient
.Provider = "Microsoft.ACE.OLEDB.12.0"
.Open connStringA
End With

Dim commandsA As ADODB.Command
Set commandsA = New ADODB.Command
commandsA.ActiveConnection = connA


For i = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
SQLTextA = "insert into b values ('" & Cells(i, 1) & "','" & Cells(i, 2) & "','" & Cells(i, 3) & "')"


commandsA.CommandText = SQLTextA
commandsA.Execute
Next
connA.Close
End Sub