vb 串口通讯有时候不能正常通讯

我在网上找了一段程序，是地秤与电脑连接的。但是我用的时候当我启动程序后，有时候可以连接上地秤，在电脑上显示出来了，但有时候就不能显示出来！不知道是什么原因！请哪位高手指点迷津，在此不胜感激！我的代码是：
Private Sub Form_Load() '启动程序的时候

’连接数据

Set conne = New ADODB.Connection'
conne.Provider = "microsoft.jet.oledb.4.0"
conne.ConnectionString = "data source=d:\原油统计系统.mdb"
conne.CursorLocation = adUseClient
conne.Open
Set rs.ActiveConnection = conne
rs.Open ("select * from 系数")
xishu = rs.Fields("数值")
riqi = rs.Fields("日期")

'初始化端口

With MSComm1
.CommPort = 1 '设置通信端口
.Settings = "1200,E,7,1"
.InputMode = comInputModeBinary
.InBufferSize = 1024 '设置缓冲区接收数据为64字节
.InputLen = 17 '设置Input一次从接收缓冲读取17字节
'托利多电子称发来的数据为17字节[2,49,48,32,30,30,30,30,36,30,30,30,30,30,30,30,13]
'第一位为起始位，第6位为万位，第7位为千位...第10位为个位，第11位为小数位第一位...第17位为停止位

接收代码有问题，既然是2进制接收，应该按BYTE字节流接收。

http://www.piikee.net/read.php/166.htm ARM的相不相同

VB串口通讯问题 vb串口通讯 关于VB的串口通讯 vb串口通讯发送问题 vb 串口通讯 接收问题 VB实现单片机PC串口通讯 求助VB中串口通讯问题. 高手帮忙 ！！VB串口通讯问题！！！ VB不能打开串口 串口通讯