SoloCodigo

Para un proyecto final de la facultad, necesito manipular el puerto paralelo para que me devuelva 8 bits (1 byte), de a dos bloques de 4 cuatro. En el 98 para un proyecto de la cursada manipule el puerto paralelo con win95io.dll. Actualmente yo poseo XP y esta dll no me sirve. Alguien sabe de otra dll u ocx para manipular el puerto paralelo. Por favor, se lo agradecería mucho.
Saludos

Estoy usando un MSHFlexGrid con un ADODC y cuando actualizo los datos del adodc no se me refrescan los datos de la grilla. Si yo llamo desde el botón que busca a la función para actualizar los datos de la grilla los datos del MSHFlexGrid se refrescan pero si yo llamo a esa misma función desde donde estoy actualizando los datos la grilla no se refrescan. Alguien tiene idea porque me pasa esto o como hacer para solucionarlo?

Funcion que actualiza:

Sub ActualizarGrilla()
 On Error GoTo ActualizarGrilla_Err
 
    Screen.MousePointer = vbHourglass
    sSQL = "SELECT Usuario, Apellido_Usuario, Nombre_Usuario, Permiso_Usuario "
    sSQL = sSQL & "FROM Usuarios WHERE Activo_Usuario = " & CVnx(xTxt_Activo) & " "
    If sTxt_Usuario <> "" Then
        sSQL = sSQL & "AND Usuario Like '%" & CVne(sTxt_Usuario) & "%' "
    End If
    Ado_Usuarios.ConnectionString = sCon
    Ado_Usuarios.RecordSource = sSQL
    Ado_Usuarios.Refresh
    Set Grd_Usuario.DataSource = Ado_Usuarios
    Grd_Usuario.Refresh
   
ActualizarGrilla_Exit:
    Screen.MousePointer = vbArrow
    Exit Sub
ActualizarGrilla_Err:
    MostrarError "ActualizarGrilla"
    Resume ActualizarGrilla_Exit
End Sub

Estimado hjom:
Intente levantar tu zip y me dio error. Me prodrías decir como se llama el Control (*.ocx) que usas para poder ver si lo encuentro en la web.
Desde ya, muchas gracias.