Stupid Inet Control...

I have this code inside a command button:

Code:

---

Dim strFTPCommand As String

With inetFTPTest
    .Cancel
    .Protocol = icFTP
    .URL = txtServer.Text
    .UserName = txtUsername.Text
    .Password = txtPassword.Text
End With

frmAdminFTPStatus.Show
frmAdminFTPStatus.lblStatus.Caption = "Uploading Test File"

strFTPCommand = "PUT " & GetShortPath(App.Path & "\config\ftptest.bok") & " " & txtRemoteDir.Text & "/ftptest.bok"
inetFTPTest.Execute , strFTPCommand

frmAdminFTPStatus.lblStatus.Caption = "Upload Completed!"

frmAdminFTPStatus.lblStatus.Caption = "Downloading Test File"

Do While inetFTPTest.StillExecuting = True
    DoEvents
Loop

strFTPCommand = "GET " & txtRemoteDir.Text & "ftptest.bok " & GetShortPath(App.Path & "\config\test\ftptest.bok") & ""
inetFTPTest.Execute strFTPCommand

MsgBox "FTP Test Completed Successfully!", vbInformation, gAppName

frmAdminFTPStatus.Hide

---

Whenever the line in red is reached, Visual Basic throws up an error stating that it was unable to connect to the remote host. I am very new to the Inet control, so I suspect it is a simple problem.

Any ideas, Guys?

Thanks in advance..

Anyone?

Gyaaaaaaaaaaargh!

Thanks RyeBread!!!