Add clsFTP as a Class module to your database and then add WinInetAPI as a standard module. This code is by no means mine nor am I'm trying to pass it off as such. I have left the author's notes and names in the files just the way that I had found them.
Below is some sample code to download a file from an FTP server. You'll need to replace the text in ALL CAPs with the appropriate values.
Public Function RetrieveFile() As Boolean
On Error GoTo ErrHandler
Dim oFTP As New clsFTP
Dim vItem As Variant
Dim i As Integer
Call oFTP.OpenConnection(SOME.FTP.SERVER, USER_NAME, PASSWORD, "")
If oFTP.DownloadFile(FILE_TO_GET, DESTINATION_OF_FILE) Then
Debug.Print "File Downloaded."
RetrieveFile = True
Set oFTP = Nothing
RetrieveFile = False