我要接收一仪器串口传过来的大批量数据，数据是十六进制，如02160709等等，02就是ASCII中的02，16就是22日，07就是7月，09就是09年等等。一共有5112位。现在我用接收的办法是在Mscomm的oncomm里用如下语句：
        buf = MSComm1.Input
        For i = 1 To Len(buf)
            Hextemp = Hex(Asc(Mid$(buf, i, 1)))
            Text1.Text = Text1.Text & IIf(Len(Hextemp) = 1, "0" & Hextemp, Hextemp) & ""
        Next
先放到一个文本框里，再将文本框里的文字转换处理，现在显示出的信息基本正确，只是最终出来时间太长，要几分钟。这种方法也只是调试用的，现在需要将这些数据存储到数据库。请问该如何用串口快速接收数据并将其保存到数据库中，最好能有源代码。
万分感谢。