VB 6.0: Usar Lector de Codigo de Barras

[SalomonSab]

Una pregunta tengo un lector de codigo de barra y mi duda es en que evento tengo que poner la caja de texto para que al momento de que lea el codigo de barra me muestre los datos que se encuentran en la base de datos.

Hasta ahora tengo este codigo pero no se si sea del todo correcto.

Código:

Private Sub TextCodigo_Change()
    If rs.State = 1 Then rs.Close
        rs.Open "SELECT * FROM Principal WHERE Clave = '" & TextCodigo.Text & "'", cnn, adOpenStatic, adLockOptimistic
               If rs.RecordCount = 0 Then
            MsgBox "No Se encontraron Registro con el Numero de Control " & TextCodigo.Text & "", vbCritical, "Error de Entrada..."
            Else
            Do While Not rs.EOF
                rs.Fields("Nombre") = TextNombre.Text
                rs.Fields("Categoria") = TextCategoria.Text
                rs.Fields("Departamento") = TextDepartamento.Text
                rs.MoveNext
            Loop
        End If

End Sub

Cualquier Aporte se agradece y por lo pronto gracias