求VB6实时读取COM中数据的程序？具体请进，解决后200分，非常感谢！

Question

现在我要做一程序，操作者按测试一仪器上的两个键，一个键会传入代表PASS，另一个会传入代表NG，现在我想把这些数据实时读入到数据库，并统计某一时段产品的合格率，不良率等！谢谢！

Answer 1

Dim InputBufferString$   '''用于临时保存得到的数据Private Sub Form_Load()
   ' 保存输入子串的缓冲区
   Dim Instring As String
   ' 使用 COM1。
   MSComm1.CommPort = 1
   ' 9600 波特，无奇偶校验，8 位数据，一个停止位。
   MSComm1.Settings = "9600,N,8,1"
   ' 当输入占用时，
   ' 告诉控件读入整个缓冲区。
   MSComm1.InputLen = 0
   ' 打开端口。
   MSComm1.PortOpen = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
   ' 关闭串行端口。
   MSComm1.PortOpen = False
End SubPrivate Sub MSComm1_OnComm()
      DoEvents
   ' 调制解调器以"OK"响应。
   ' 等待数据返回到串行端口。
   InputBufferString$ = MSComm1.Input
End SubPrivate Sub Timer1_Timer()
    '''
    ''保存数据
    
End Sub