主题：FTP文件管理

当文件内容发生变化时上传在ftp 以下代码提示黄色部分错误，该怎么修改？

'Dim ftp1 As New FtpClient
'ftp1.Host="192.168.87.448"
'ftp1.Account = "uiwrfjkjdf"
'ftp1.Password = "1234566"
'If ftp1.Upload("ProjectPath &  RemoteFiles\ & r("第六列")"," r("第六列")") = True Then
    'Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
'Else
    'Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
'End If