problema al subir con ftp

[mamogo]

hola a todos,
tengo un gestor de ftp y cuando llevo un rato subiendo archivos me da el error hconnection=0
es como si hubiera un timer ya que siempre se bloquea al subir el archivo nº 11
y ya no se que mirar esta es la funcion que uso
alguien sabe las causa del error que genera el InternetConnect
gracias

Public Function OpenConnection(sServer As String, sUser As String, sPassword As String) As Boolean
If hConnection <> 0 Then
InternetCloseHandle hConnection
End If

If CBool(InternetAutodial(INTERNET_AUTODIAL_FORCE_ONL INE, 0)) Then
hOpen = InternetOpen("eDIY FTP Client", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
If hOpen = 0 Then
ErrorOut Err.LastDllError, "InternetOpen"
End If
'InternetSetStatusCallback hOpen, AddressOf FTPCallBack

hConnection = InternetConnect(hOpen, sServer, INTERNET_INVALID_PORT_NUMBER, sUser, sPassword, INTERNET_SERVICE_FTP, dwSeman, 0)
If hConnection = 0 Then
ErrorOut Err.LastDllError, "InternetConnect"
OpenConnection = False
Exit Function
Else
'InternetSetStatusCallback hConnection, AddressOf FTPCallBack
OpenConnection = True
End If
Else
OpenConnection = False
End If
End Function