Visual Basic

<br />
        Const localFile As String = "C:\"<br />
        Const remoteFile As String = "/Filder/File.ext"<br />
        Const host As String = "ftp://000.000.0.000" <br />
        Const username As String = "UserName"<br />
        Const password As String = "Pwd"<br />
<br />
<br />
        Dim URI As String = host & remoteFile<br />
        Dim ftp As System.Net.FtpWebRequest = CType(System.Net.FtpWebRequest.Create(URI), System.Net.FtpWebRequest)<br />
        ftp.Credentials = New System.Net.NetworkCredential(username, password)<br />
        ftp.KeepAlive = False<br />
        ftp.UseBinary = True<br />
        ftp.Method = System.Net.WebRequestMethods.Ftp.DownloadFile<br />
<br />
        Using response As System.Net.FtpWebResponse = CType(ftp.GetResponse, System.Net.FtpWebResponse)<br />
            Using responseStream As IO.Stream = response.GetResponseStream<br />
<br />
                Using fs As New IO.FileStream(localFile, IO.FileMode.Create)<br />
                    Dim buffer(2047) As Byte<br />
                    Dim read As Integer = 0<br />
                    Do<br />
                        read = responseStream.Read(buffer, 0, buffer.Length)<br />
                        fs.Write(buffer, 0, read)<br />
                    Loop Until read = 0 'see Note(1)<br />
                    responseStream.Close()<br />
                    fs.Flush()<br />
                    fs.Close()<br />
                End Using<br />
                responseStream.Close()<br />
            End Using<br />
            response.Close()<br />
        End Using<br />

Option Explicit
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
---------------------------------------------------------------------------
Private Sub Form_Load()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strsql As String

'-- get db path
Set cn = New ADODB.Connection
     cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Data Source=\\IP Address or Computer Name\DIR\masterFile.mdb ;Persist Security Info = False"
     
     cn.Open
     Set rs = cn.Execute("select * from dataTable")

End Sub

Data1.DatabaseName = "WHAT Should be the Path?"
Data1.RecordSource = ("select * dataTable order by Title")

Option Explicit
Dim Conn As New ADODB.Connection
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\IP Address or Computer Name\DIR\masterFile.mdb"

Dim Conn As New ADODB.Connection