急急急！！！FTP程序的问题！

Question

Dim strURL As String
Dim bData() As Byte      '数据变量
Dim intFile As Integer   '可用文件变量
Dim i As Integer
    strURL = "http://www.jinesc.com/db.mdb"
    intFile = FreeFile()      '将 intFile 设置为未使用的文件
    ' OpenURL 方法的结果首先传入 Byte 数组，
    '然后将 Byte 数组保存到磁盘。bData() = Inet1.OpenURL(strURL, icByteArray)
    Open App.Path & "\dm.mdb"  For Binary Access Write As #intFile
    Put #intFile, , bData()
    Close #intFile
End If