a="@1991@1205@844@3276@1104@747@1069@0.9@4@3@104810571073
目前创新互联已为上千余家的企业提供了网站建设、域名、雅安服务器托管、网站托管、服务器托管、企业网站设计、宁都网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。
"
a=Replace(a,"@",",")
a=Replace(a,"",",")
dim b()
b=split(a,",")
首先说一下你不明白的地方，那个rand.Next(0,
129)，其实就是产生一个随机数
Dim
rand
=
New
System.Random()
这个是产生随机数初始化的地方
方法名称：next(i，j)；功能描述：返回一个i~j之间的整数
String$(129,
0)的作用和你注释掉的地方一样，也是产生一个0-129之间的随机数
至于为什么报错，问题就多了
因为产生的值是一个随机的，而且，程序别的地方的处理我不知道，但只根据这段代码来看，这个就是个报错时候的显示信息处理，那么最好你都能明白错误信息的显示方法，提示一下，这个显示出来的内容，哪怕传进去的参数一样，在中文系统，日文系统，英文系统上显示出来的信息内容，都是不一样的
Dim da As String = "SELECT Count(检测项目) FROM b where 检测项目='cc'"
这句写错啦,你直接传送的是检测项目为字符串"cc"的参数,并不是你程序写的CC参数
改为:
Dim da As String = "SELECT Count(检测项目) FROM b where 检测项目='" cc "'"
建议通过程序组织的sql语句可以通过msgbox da 弹出来看看,这样你较容易查出是什么错误,较长的就用textbox1.text=da来看了,不过记得设置断点"exit sub"
使用ACCESS数据库的日期列比较，应为：
"select * from 表 where 日期列=" "#" cdate(textbox1.text) "#"
注意前后两个“#”号
使用sqlserver
"select * from 表 where 日期列=" "'" cdate(textbox1.text) "'"
当然日期格式要注意，如长短日期等。
日期期间:between 小日期 and 大日期(记得加#号)
串口通信最终都是用二进制传输的，你用代码把二进制转化成十六进制就可以了。不需要额外设置。
Dim strFilePath As String =SaveFileDialog1.FileName
Dim sw As StreamWriter = New StreamWriter（strFilePath， True） 'true是指以追加的方式打开指定文件
For i = 0 To j
temp = i.ToString
sw.WriteLine（temp）
sw.Flush（）
Next
sw.Close（）
sw = Nothing
看你的描述，既然Gb2312能取得中文，说明你收到的文字编码是Gb2312。
字符和数字却使用unicode编码，不正常。你可以把char数组中的00去掉，
再用gb2312转换就应该没问题了。
去掉就是把有用的字符向前移动。