有个数数据库表，，ID号我打印出来生成一维码，想通过扫码枪扫描一维码，得到ID，自动弹出所在那行的数据，再扫一个，不会覆盖前面的数据，而是又弹出另外一个数据，有点像超市收银的那种。这个代码怎么实现。现在我做到的就是能通过ID号来查询数据，不知道怎么做成像超市收银那种效果的程序。
Private Sub Text1_LostFocus()
  Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=bd_manpowerinfo"
  Adodc1.RecordSource = "select id,name,sex,住址 from dbo.Table_1 where id='" & (Text1) & "'"
  Adodc1.Refresh
  Set DataGrid1.DataSource = Adodc1
End Sub

有纸质的一维码，扫码枪扫的是一维码，而且一维码扫描出来的字段是和ID匹配的上的。那这个代码要怎么编写呢，就是扫描一个，出现一个。

能告诉我代码怎么写的么，我是初学者。想通过自己想出来的案例来慢慢学习。

好的，谢谢，发我邮箱好吗。15573185151@