vb6 SOCKET 发送 邮件问题

我在网上找了一份SMTP发送模块，我试了结果与环境如下：
我用SMTP.163.COM测试（当然可以PING通的）
连接25端口
当让WINSOCK1连接出现Winsock1_DataArrival 事件
bytesTotal变量为65（也就是buffer中有数据）
在接收数据代码：
Winsock1.GetData strGet, , bytesTotal
出现错误代码如下：
所需事物或请求的错误协议或连接状态 40006这时winsock1的状态为6问题是既然没有连接上为什么会出现：dataArrival事件我该怎么解决
或者随有可以用的SOCKET+SMTP   POP3 EMAIL发送模块