Class not registered error

[theSizz]

I have a Visual Basic problem that generates the following error in a sub-procedure:
Run-time error '-2147221164 (80040154)'
Class not registered

Until recently the sub-procedure use to work on my Windows XP computer running Access 2000. I have a vague hunch that the problem may be related to my recent installation of a Microsoft security update or the recent installation of Windows XP SP2.

I am using:
Microsoft Jet Engine 4.0 Version 4.00.8618.0
Visual Basic for Applications
Microsoft Access 9.0 Object Library
Ole Automation
Microsoft ActiveX Data Objects 2.1 Library

Here is the sub-procedure that produces the error.

Sub CountSales()
Dim r As New Recordset
r.Open "SELECT count(*) FROM sales " & _
"WHERE datevalue(date) Between #" & _
Me.StartDate & "# AND #" & _
Me.EndDate & "#", _
CurrentProject.Connection
Me.Command0.Enabled = r(0)
End Sub

I can’t find anything on Microsoft’s knowledge base that addresses this problem.

Can anyone offer any help?

P.S. I've tried uninstalling SP2 but the problem still persists.

Thank You