microsoft visual basic 运行时错误“1004 怎么解决，求救大家”

谢谢大家给我提解决方案 --------------------编程问答-------------------- 先看看msdn怎么说的？ --------------------编程问答-------------------- CommEvent 属性
      

返回最近的通讯事件或错误。该属性在设计时无效，在运行时为只读。

语法

object.CommEvent

CommEvent 属性语法包括下列部分：

部分 描述 
object 对象表达式，其值是“应用于”列表中的对象。 


说明

只要有通讯错误或事件发生时都会产生 OnComm 事件，CommEvent 属性存有该错误或事件的数值代码。要确定引发 OnComm 事件的确切的错误或事件，请参阅 CommEvent 属性。

CommEvent 属性返回下列值之一来表示不同的通讯错误或事件。这些常数可以在该控件的对象库中找到。通讯错误包括下列设置值：

常数 值 描述 
comEventBreak 1001 接收到一个中断信号。 
comEventCTSTO 1002 Clear To Send 超时。在系统规定时间内传输一个字符时，Clear To Send 线为低电平。 
comEventDSRTO 1003 Data Set Ready 超时。在系统规定时间内传输一个字符时，Data Set Ready 线为低电平。 
comEventFrame 1004 帧错误。硬件检测到一帧错误。 
comEventOverrun 1006 端口超速。没有在下一个字符到达之前从硬件读取字符，该字符丢失。 
comEventCDTO 1007 载波检测超时。在系统规定时间内传输一个字符时，Carrier Detect 线为低电平。Carrier Detect 也称为 Receive Line Signal Detect (RLSD)。 
comEventRxOver 1008 接受缓冲区溢出。接收缓冲区没有空间。 
comEventRxParity 1009 奇偶校验。硬件检测到奇偶校验错误 
comEventTxFull 1010 传输缓冲区已满。传输字符时传输缓冲区已满 
comEventDCB 1011 检索端口的设备控制块 (DCB) 时的意外错误 


通讯事件包括下列设置值：

常数 值 描述 
comEvSend 1 在传输缓冲区中有比 Sthreshold 数少的字符。 
comEvReceive 2 收到 Rthreshold 个字符。该事件将持续产生直到用 Input 属性从接收缓冲区中删除数据。 
comEvCTS 3 Clear To Send 线的状态发生变化。 
comEvDSR 4 Data Set Ready 线的状态发生变化。该事件只在 DST 从 1 变到 0 时才发生。 
comEvCD 5 Carrier Detect 线的状态发生变化。 
comEvRing 6 检测到振铃信号。一些 UART（通用异步接收— 传输）可能不支持该事件。 
comEvEOF 7 收到文件结束（ASCII 字符为 26）字符。 


数据类型

Integer
--------------------编程问答-------------------- 看看波特率设置是否正确。

补充：VB ,  VBA