can't close object

/////////////////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////////////////

///////////////////////////////////////////////////////////////////////////////////////////



Private Sub connect(txt_user, txt_pass)

  

 '   load licence strKey

	Set objGlobal = CreateObject("sfFTPLib.Global")

	If objGlobal.LoadLicenseKeyData(strKey) Then

		Label23.Caption = "OK licence"

	Else

	   Label23.Caption = "Failed licence"

	End If

	

	Set objFTP = CreateObject("sfFTPLib.FTPConnectionSTA")

	

	objFTP.Host = txtServer

	objFTP.Username = txt_user

	objFTP.Password = txt_pass

	objFTP.HidePassword = True

	objFTP.LogFile = "VB6Demo.log"

	objFTP.Port = 21

	objFTP.Protocol = ftpProtocolNormal

	objFTP.Passive = True



 

   If objFTP.Connect = sfFTPLib.enumError.ftpErrorSuccess Then

	   objFTP.DataTransferType = ftpDataTransferTypeImage

	   Exit Sub

	Else

	   DoEvents

	   objFTP.Disconnect

	   objFTP.Close

	   Call connect(txt_user, txt_pass)

	End If

end sub

///////////////////////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////////////////////



Private Sub exit_Click()

		 

		   On Error Resume Next

		   objFTP.Abort

		   objFTP.Disconnect

		   objFTP.Close

		   Unload Me

		   End

   

End Sub