条形码扫描仪怎么与程序连在一起

条形码扫描仪如何与程序连在一起
自己编一个入库的系统，想用条形码扫描仪直接扫入而不用手输入如何实现呀

------解决方案--------------------
就是键盘输入后加入Enter
------解决方案--------------------
可以自己設置開頭的標志和結束標志。
結束之後自動加回車
Private Sub Form_KeyPress(KeyAscii As Integer)
dim Myinput as string
Myinput=inputbox( "Input Data ", "Scan Data ")
if keyascii=126 then '~開頭表示掃描儀器讀出來的
keyascii=0 '去掉~
.....

end if

End Sub