This browser is no longer supported.
Upgrade to Microsoft Edge to take advantage of the latest features, security updates, and technical support.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(310.4, 65%, 40%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EN%3C/text%3E%3C/svg%3E)
Hi, I've got an Access/VBA application that I've been developing over many years. I've just upgraded my computer moving from Win 10 Home to Win 11 Pro. When I come to compile the application it is failing. I've checked all the References on the new computer and they all seem to be present.
The error I get is Type Mismatch on the following line of code
lngRecordCount = .RecordCount
where .RecordCount is a property of an ADODB Recordset.
lngRecordCount is declared as a Long Integer at module level. The same code compiles fine on the Win 10 machine.
Please can someone advise on what is happening.
TIA
Nigel
Did you try to create a new Access file and to add and compile a test module like this:
Option Compare Database
Option Explicit
Private lngRecordCount As Long
Sub Test()
Dim rs As ADODB.Recordset
With rs
lngRecordCount = .RecordCount
End With
End Sub
How to reproduce the problem?
I did what you suggested and the same problem happened once I'd loaded the ActiveX Data Objects reference into the project. This was an old version (2.1). When I replaced it with latest version (6.0) it compiled. I did the same on my application and it also compiled. So that seems to have solved the problem.
Thanks for your help.