Visual Basic

Dim Command as String
Command = "select storename from stores where storeid = " + CStr(selectedStoreId)
Set rs = CurrentDb.OpenRecordset(Command)

txtStoreName.Value = rs!StoreName

array1 = {sub1(), sub2(param1, param2), sub3(param3)....}

for i = 0 to N_MAX

  INVOKE_FuNCTION(array1(i))
end

reqFTP = DirectCast(WebRequest.Create("ftp://ftp.microsoft.com/"), FtpWebRequest)
        reqFTP.Method = WebRequestMethods.Ftp.ListDirectoryDetails
        reqFTP.Credentials = New NetworkCredential(UserID, Password)
        response = DirectCast(reqFTP.GetResponse(), FtpWebResponse)
        Dim responseStream As Stream = response.GetResponseStream()
        Dim reader As New StreamReader(responseStream)
        Dim CrLf As Char() = {Constants.vbCr, Constants.vbLf}
        Dim lines() As String = reader.ReadToEnd().Split(CrLf, StringSplitOptions.RemoveEmptyEntries)
        Dim lineArr() As String
        For i As Integer = 0 To UBound(lines)
            lineArr = Split(lines(i))
            lstFTPfiles.Items.Add(lineArr(UBound(lineArr)))
        Next
        responseStream.Close()
        response.Close()
        reader.Close()

Folder1
Folder2