主题：ftp上传

老师，下面的代码编译通不过，请您给看看哪错了。

Dim pic As WinForm.PictureBox = e.Form.Controls("PicView2")
Dim img As Image
e.Form.TimerEnabled = False
If pic.Image IsNot Nothing
    Dim buffer() As Byte = Functions.Execute("GetImageToBytes",pic.Image)
    Dim result As Integer = Functions.Execute("SaveBytesToFile",buffer,"web\学校档案\学生照片\" & Tables("学生名单").Current("学生姓名") & Tables("学生名单").Current("身份证件号") & ".jpg")
    Dim ftp1 As New FtpClient
    ftp1.Host="218.222.157.198:21"
    ftp1.Account = "lyxx-wz"
    ftp1.Password = "xxxxxxx"
    Tables("学生名单").Current("照片") = Tables("学生名单").Current("学生姓名") & Tables("学生名单").Current("身份证件号") & ".jpg"
    If result = 1
        MessageBox.Show("照片保存为: "& Tables("学生名单").Current("学生姓名") & Tables("学生名单").Current("身份证件号") & ".jpg","保存成功")
        e.Form.Close()
    Else
        MessageBox.Show("保存失败","失败")
    End If
Else
    MessageBox.Show("请先拍照!","错误")
End If
e.Form.TimerEnabled = True