VB 6.0: Usar Lector de Codigo de Barras

[SalomonSab]

mira ahora puse mi codigo asi:

Código:

Private Sub TextCodigo_Change()
    If rs.State = 1 Then rs.Close
        rs.Open "SELECT * FROM Principal WHERE Clave like '%" & 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
                If rs.Fields("Clave") = TextCodigo.Text Then
                    TextNombre.Text = rs.Fields("Nombre")
                    TextCategoria.Text = rs.Fields("Categoria")
                    TextDepartamento.Text = rs.Fields("Departamento")
                    Else
                      '  MsgBox "No Se encontraron Registro con el Numero de Control " & TextCodigo.Text & "", vbCritical, "Error de Entrada..."
                End If
        End If

End Sub

y ahora si me funciona, solo queria preguntare si va bien el codigo de esa manera. por lo pronto gracias.