DBStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "data.mdb;Persist Security Info=False"     CONN.Open DBStr     Dim Mac_Num    Mac_Num是车号     Mac_Num = Combo_MacNum.List(Combo_MacNum.ListIndex)     Debug.Print Mac_Num     sql = "select * from machine where Machine_Num = " + Mac_Num + ""   获取车号     rs.Open sql, CONN, 1, 3     Txt_type.Text = rs.Fields("machine_type").Value   获取车的类型（是精梳机还是条并联）     rs.Close     str_type = Mac_Num      Set CONN = Nothing     DBStr = ""     发送数据（根据所选车号发送数据）     If MSComm1.PortOpen = True And stakeout_flag And Combo_MacNum.ListIndex >= 0 Then         str_output = str_type + "030064001D"         MSComm1.Output = ":" + str_output + LRC(str_output) + Chr$(13) + Chr$(10)         接收数据         inputstring = MSComm1.Input         将接收到的数据分别赋值并显示         Txt_100.Text = change(inputstring, 8, 12) 甲班当日产量         Txt_102.Text = change(inputstring, 16, 20) 甲班累计产量         Txt_104.Text = change(inputstring, 24, 28) 乙班当日产量         Txt_106.Text = change(inputstring, 32, 36) 乙班累计产量         Txt_108.Text = change(inputstring, 40, 44) 丙班当日产量         Txt_110.Text = change(inputstring, 48, 52) 丙班累计产量         Txt_112.Text = change(inputstring, 56, 60) 丁班当日产量         Txt_114.Text = change(inputstring, 64, 68) 丁班累计产量         Txt_116.Text = change(inputstring, 72, 76) 各班当日合计产量         Txt_118.Text = change(inputstring, 80, 84) 各班累计合计产量         If Txt_type.Text = "条并联" Then             Txt_view1.Text = change(inputstring, 104, 108) 条并联绕卷速度             Txt_view2.Text = change(inputstring, 112, 116) 条并联当前长度         Else             Txt_view1.Text = change(inputstring, 88, 92) 精梳机钳次             Txt_view2.Text = change(inputstring, 96, 100) 精梳机条速       End If       str_state = Mid(inputstring, 120, 4) 接收运行状态的返回值，并判断运行状态         If str_state = "0001" Then             Cmd_128.Caption = "运行中"         End If         If str_state = "0000" Then             Cmd_128.Caption = "停止"         End If