Ayuda sobre CÓDIGO DE BARRAS

Lo que te voy a dar sobre los códigos de barra no es mi creación pero se encuentra como
Articulo en la página del guille, si quieres puedes ir a la página para que veas el original
Aunque aquí te voy a incluir el articulo.
la url de la pagina del guille es: http://guille.costasol.net/colabora/gSieder_codigobarras.htm
Códigos de Barra muy Fácil
Cómo implementar un sistema con lectura de códigos de barra paso a paso.
Fecha: 12/Ago/2001
Autor: Guillermo Sieder
--------------------------------------------------------------------------------
A pesar de que la lectura de códigos de barra es habitual en lo sistemas que vemos a diario, sigo recibiendo consultas por e-mail de cómo implementarlo. Aquí trato de explicar en forma clara y muy sencilla lo que hay que hacer...
Los códigos de barra son ni más ni menos, "letras" o "números" que puede interpretar nuestra PC.
Las Lectoras de códigos de barra son periféricos que se encargan de leer ese código e ingresarlo en nuestra PC como si fuera una cadena de texto.
Las lectoras más comunes son emuladoras de teclado, quiere decir que cuando lean este código, simularán que nosotros mismos lo hemos escrito.
Para imprimir un código de barras tenemos muchas opciones pero recomiendo como la más fácil, usar una fuente TrueType de las tantas que hay en la WEB.
Pueden bajar la que yo mismo utilizo de: http://members.xoom.com/sieder/Files/sieder39.ttf pero cualquiera servirá.
A la hora de imprimirlo recuerden agregar un * al principio y al final de lo que quieran que sea leído, esto le "informará" a la lectora dónde empieza y donde termina la información.
Para ser más claro si nuestro código debiera ser leído como 1234 debemos imprimir *1234* por supuesto, con la fuente TrueType.
La gran mayoría de la lectoras se configuran leyendo códigos del manual que se entrega con ellas. Para la gran mayoría de los casos funcionarán en nuestras aplicaciones con los valores de fábrica (factory default values), en el manual seguramente aparecerá bien remarcado cómo hacer para volver a esos valores aún cuando hayamos probado muchísimas opciones.
Tendremos que configurar la lectora para que agregue un retorno de carro (Chr(13)) a la lectura para disparar la consulta de nuestra aplicación.
Para probar que todo esté bien, podemos abrir el Bloc de Notas leer un código cualquiera (el del supermercado, servirá) deberá aparecer una cadena de texto (generalmente números) y avanzar una línea.
Probaremos ahora nuestros propios códigos.
Imprimiremos los números: 1234, 1235, y 1236 (o mejor dicho: *1234*, *1235*, y *1236*) con nuestra nueva fuente.
Ahora haremos una sencilla aplicación que los lea:
Supongamos que tenemos una base de datos con una tabla de números de socio y sus respectivos Nombres y Apellido.
Los campos de esta tabla se llamarán "nSocio" y "Nombre" respectivamente. Llamaremos esta BD Socios.mdb y a la tabla descripta TodosLosSocios,
En un formulario dibujaremos un cuadro de texto y en el evento KeyPress escribiremos:
If KeyAscii = 13 Then
Dim user As String
Dim MyWorkspace As Workspace
Dim MyDatabase As Database
Dim MyTable As Recordset
Dim MyFile As String
Dim MyQuery As String
Dim resultado As String
Dim nro As String
nro = Text1.Text
If Text1.Text = "" Then Exit Sub
MyFile = "C:\Prueba de códigos de Barra\Socios.mdb"
MyQuery = "SELECT * From TodosLosSocios WHERE nSocio=" & nro & ";"
Set MyWorkspace = Workspaces(0)
Set MyDatabase = MyWorkspace.OpenDatabase(MyFile)
Set MyTable = MyDatabase.OpenRecordset(MyQuery)
On Error Resume Next
resultado = MyTable![Nombre]
If resultado <> "" Then MsgBox r