Hi! I'm trying to send a SQLCe file form my WM6 phone to an ftp server. I'm getting a "NotSupportedException" error. I can't figure out what im doing wrong.
Any ideas!? thanks!

Code:
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _
    (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, _
    ByVal sProxyBypass As String, ByVal lFlags As Long) As Long

    Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" _
    (ByVal hInternetSession As Long, ByVal sServerName As String, _
    ByVal nServerPort As Integer, ByVal sUsername As String, _
    ByVal sPassword As String, ByVal lService As Long, _
    ByVal lFlags As Long, ByVal lContext As Long) As Long

    Private Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" _
    (ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _
    ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, _
    ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, _
    ByVal dwContext As Long) As Boolean

    Private Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" _
    (ByVal hFtpSession As Long, ByVal lpszLocalFile As String, _
    ByVal lpszRemoteFile As String, ByVal dwFlags As Long, _
    ByVal dwContext As Long) As Boolean

    Public Sub UploadFile()
        Dim lngINetConn
        Dim lngINet
        Dim blnrc
        lngINet = InternetOpen("MyFTP Control", 1, vbNullString, vbNullString, 0)
'error happens before this point
        
        lngINetConn = InternetConnect(lngINet, "Server", 0, _
            "UN", "PW", 1, 0, 0)        
        blnrc = FtpGetFile(lngINetConn, "localfile", "FTPfile", 0, 0, 1, 0)
            End Sub
    Public Sub DownloadFile()
        Dim lngINetConn
        Dim lngINet
        Dim blnrc
        lngINet = InternetOpen("MyFTP Control", 1, vbNullString, vbNullString, 0)

        lngINetConn = InternetConnect(lngINet, "Server", 0, _
            "UN", "PW", 1, 0, 0)
        blnrc = FtpPutFile(lngINetConn, "localfile", "FTPfile", 1, 0)

    End Sub