So I've been all over looking for help on this, and it seems like I'm not alone. But the recommended fixes for similar problems haven't helped, so I thought I'd post my specific issue.
My company is using MS Access 2002 on XP. We've had no issues with the database in question. Not until I installed SP1 on my own Windows 7 machine, made a minor change (I changed the text on a label of a form) and then uploaded the database. Now everyone gets an "Error 403: Class Does Not Support Automation..." error. From the research I've gotten from Google, looks like SP1 is the culprit.
I've tried a couple recommended fixes... Uninstall SP1 and recompile. No luck. And open the database on an XP machine, compile it, and then try opening. Same thing. I still get the error now (expect on my Win 7 machine, where it works just fine).
Can anyone help me on this? I'm game for trying another process to get the existing code working and/or rewriting the code a newer/better way that would work. I'm not much of a coder, so I'm sure it's sloppy. Here's my code:
My company is using MS Access 2002 on XP. We've had no issues with the database in question. Not until I installed SP1 on my own Windows 7 machine, made a minor change (I changed the text on a label of a form) and then uploaded the database. Now everyone gets an "Error 403: Class Does Not Support Automation..." error. From the research I've gotten from Google, looks like SP1 is the culprit.
I've tried a couple recommended fixes... Uninstall SP1 and recompile. No luck. And open the database on an XP machine, compile it, and then try opening. Same thing. I still get the error now (expect on my Win 7 machine, where it works just fine).
Can anyone help me on this? I'm game for trying another process to get the existing code working and/or rewriting the code a newer/better way that would work. I'm not much of a coder, so I'm sure it's sloppy. Here's my code:
Code:
Private Sub Form_Load()
Dim rsVersion As ADODB.Recordset
Set rsVersion = New ADODB.Recordset
rsVersion.Open "SELECT * FROM tblVersion", CurrentProject.Connection, adOpenStatic
rsVersion.MoveFirst
If rsVersion.Fields("Version") <> lblVersion.Caption Then
MsgBox "There is a new update to this program. Please go to the Software Updates section of rePortal and run an update before using this software. (", vbOKOnly, "Incorrect Version!"
DoCmd.Quit
End If
End Sub