ขอความกรุณาด้วยครับ

คือผมมีปัญหาเรื่องโค้ด VB6 ครับ
ผมต้องการให้ Textbox สามารถรับค่าจากการสแกนบาร์โค้ด
ผมควรจะเขียนโค้ดเพิ่มเข้าไปยังไงดีครับ
ตอนนี้ผมทำได้แค่การพิมพ์รหัส และกด Enter เพื่อให้ Textbox อื่นค้นหาข้อมูลแล้ว
แต่ที่ผมต้องการคือให้รับค่ารหัสจากบาร์โค้ด และให้มัน AutoEnter หน่ะครับ

Private Sub txtstudent_KeyDown(KeyCode As Integer, Shift As Integer)
Dim idcriteria As String
idcriteria = "ID like '" & txtstudent.Text & "'"
If KeyCode = "13" Then
Adodc1.Recordset.MoveLast
Adodc1.Recordset.Find idcriteria, , adSearchBackward
TxtTools.SetFocus
End If
Adodc1.Enabled = False
Adodc2.Enabled = True
End Sub

ขอความกรุณาด้วยครับ
พอดีผมไม่เคยเรียนมา และต้องมาทำเป็นครั้งแรก