Ayuda con BAse de DATOS: subbir y bajar ARchivos de FTP

Buenas , els cuento estoy haciendo un programa que ; Me descarge un ARchivo de un servidor FTp, y que lo Modifique, ya sea agregando, eliminando o modificando un DAto, de la base...

TEngo Creada una cuenta FTP, y subi un archivo a ella, pero con el programa el problema es el Siguiente:

"no me descarga el ARchivo, por ende tambpoco subira.... "

porfavor si peuden ayudarme a Mejorar el codigo:

Código:

Private Sub Actualizar_Click()
 Data1.UpdateRecord
 Data1.Recordset.Bookmark = Data1.Recordset.LastModified

End Sub
___________
Private Sub Agregar_Click()
Data1.Refresh
Data1.Recordset.AddNew
Text1.SetFocus
End Sub
_____________
Private Sub Descargar_Click()
'[color=red]Aqui me da error 424, en la secuencia del Inet....[/color]
strurl = "ftp://MiLOGIN@ELHOST:MIPASS@ELHOST/../"
Inet.Execute strurl, "recv" & ruta_remota & " " & ruta_local

End Sub
_____________
Private Sub Eliminar_Click()
Data1.Recordset.Delete
Data1.Recordset.MoveNext

If Data1.Recordset.EOF Then

Data1.Recordset.MoveLast

End If



End Sub
___________________
Private Sub Form_Load()
Text7 = ""
Text8 = ""
Text9 = ""
Text10 = ""
Text11 = ""
Text12 = ""
Text15 = ""
Text13 = ""
Label13 = ""
Text14 = ""
Label1 = Text1.DataField
Label2 = Text2.DataField
Label3 = Text3.DataField
Label4 = Text4.DataField
Label5 = Text5.DataField
Label6 = Text6.DataField
Label7 = Text1.DataField
Label8 = Text2.DataField
Label9 = Text3.DataField
Label10 = Text4.DataField
Label11 = Text5.DataField
Label12 = Text6.DataField
entrada = Text1
ruta_Remota = "ftp://ftp.t35.com/../BD pepsi.mdb"
ruta_local = "C:\actualiza.mdb"


End Sub
________________
Private Sub Inet1_StateChanged(ByVal State As Integer)
Select Case State
    
    Case Error
If Inet.ResponseCode = 80 Then
         MsgBox Inet.responsecodeinfo
    Exit Sub
End If
     Case icResponseReceived
        Label13 = "Extrayendo Archivo"
        
    Case 12
        Label13 = "Archivo Descargado"
        cambia_nombre
        Label8 = "base actual"
    End Select

End Sub
__________

Private Sub mnu_Actualizar_Click()
Data1.UpdateRecord
 Data1.Recordset.Bookmark = Data1.Recordset.LastModified
End Sub
__________
Private Sub mnu_agregar_Click()
Data1.Refresh
Data1.Recordset.AddNew
Text1.SetFocus
End Sub
__________
Private Sub mnu_eliminar_Click()
Data1.Recordset.Delete
Data1.Recordset.MoveNext

If Data1.Recordset.EOF Then

Data1.Recordset.MoveLast

End If
End Sub

Private Sub mnu_exit_Click()
End
End Sub

Private Sub mnu_modificar_Click()
Data1.Recordset.Edit
If Text7 <> "" Then
    Data1.Recordset("Nombre Negocio").Value = Text7
End If
If Text8 <> "" Then
    Data1.Recordset("Direccion").Value = Text8
End If
If Text9 <> "" Then
    Data1.Recordset("Mantencion").Value = Text9
End If
If Text10 <> "" Then
    Data1.Recordset("Estado").Value = Text10
End If
If Text11 <> "" Then
    Data1.Recordset("Retirar").Value = Text11
End If
If Text12 <> "" Then
    Data1.Recordset("Maquina").Value = Text12
End If
Data1.Recordset.Update
End Sub
End Sub
_________
Private Sub Modificar_Click()
Data1.Recordset.Edit
If Text7 <> "" Then
    Data1.Recordset("Nombre Negocio").Value = Text7
End If
If Text8 <> "" Then
    Data1.Recordset("Direccion").Value = Text8
End If
If Text9 <> "" Then
    Data1.Recordset("Mantencion").Value = Text9
End If
If Text10 <> "" Then
    Data1.Recordset("Estado").Value = Text10
End If
If Text11 <> "" Then
    Data1.Recordset("Retirar").Value = Text11
End If
If Text12 <> "" Then
    Data1.Recordset("Maquina").Value = Text12
End If
Data1.Recordset.Update
End Sub

Private Sub Subir_Click()


strurl = "ftp://viroxd.t35.com:Miclave@t35.com"
Inet.Execute strurl, "recv" & ruta_local & " " & ruta_Remota
End sub

SI me orientan porfavor

PD: en la imagen sale Nombre de usuario pass y servidor FTP, esque pense en hacerlo por separado... con with, pero no se mucho ,si que mejor asi directo, porfavor

unos Consejos , gracias