VBA / ADODB recordset no se borra – depende del PC.

Como de costumbre, un problema un tanto extraño con uno de mis macros de VBA de Excel.

Utilizo Excel como una base de datos, con una hoja de cálculo que almacena una gran cantidad de datos. Busco la fecha utilizando ADODB.

Todo funciona bien en la mayoría de los PC, pero hoy en día, uno de mis compañeros se encontró con un problema que no puedo entender.
El problema solo se ve en su computadora. Él me envió el archivo, pero no pude reproducir el problema en mi PC. Además, otros compañeros que utilizan el mismo código fuente no tienen problemas.

El problema:
Uno de los campos (columna) en la base de datos es el “estado del caso”. Cuando cambiamos el estado de un caso de ‘Abierto’ a ‘Cerrado’ y luego consultamos todos los registros con el estado ‘Abierto’, el caso cambiado aún aparece en el conjunto de registros resultante. Cuando verifico el estado en la hoja de cálculo que se utiliza como fuente de consulta, puedo ver que el estado está configurado como ‘Cerrado’, pero ADODB aún lo encuentra como ‘Abierto’.

Como mencioné, esto solo ocurre en 1 PC, por lo que no puede ser el código. ¿Podría ser alguna biblioteca en particular y, de ser así, cuál? Comparé las bibliotecas utilizadas a través de una sesión de TeamViewer en su PC y en mi PC, y todas son idénticas.

Estoy perdido.

Este es el código que utilizo

Public Sub OpenDB()
Si cnn.state = adStateOpen Then cnn.Close
cnn.ConnectionString = “Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=” & _
ActiveWorkbook.Path & Application.PathSeparator & ActiveWorkbook.Name
cnn.Open
End Sub

Public Sub closeRS()
Si rs.state = adStateOpen Then rs.Close
rs.CursorLocation = adUseClient
End Sub

…
If PRODUCTname <> “” Or PIRstate <> “” Or cmbPIRnr.Text <> “” Then
‘se extraen los datos
closeRS
OpenDB

rs.Open strSQL, cnn, adOpenKeyset, adLockOptimistic
If rs.RecordCount > 0 Then
‘Ahora se colocan los datos en la hoja de cálculo
ActiveCell.CopyFromRecordset rs
Else
MsgBox “No se pudieron encontrar registros coincidentes.”, vbExclamation + vbOKOnly
Exit Sub
End If
…