WindowsXP service pack2 : Error429 ActiveX component can't create object

Only on windowsXp service pack 2, I am unable to run my application.
I created a small sample hereby included which doens't work on Xp 2

The error from above arises on : "Set dbConn = New ADODB.Connection"

Any idea please?

Option Explicit
Dim dbConnection As ADODB.Connection
Dim dbConnection_Selections As ADODB.Connection
Dim strConnection As String
Dim rsTable As ADODB.Recordset
Dim rsTable_Selections As ADODB.Recordset

Private Sub Form_Load()
Screen.MousePointer = vbHourglass
DoEvents
SendToErrorFile "DBS is being loaded", True
DB_OpenLocalDBConnection dbConnection, "C:\wvb.mdb"
DB_OpenLocalDBTable dbConnection, rsTable, "tbl_Data"
SendToErrorFile "DBS loaded", False
Screen.MousePointer = 0
End Sub

Sub SendToErrorFile(msg As String, bKill As Boolean)
Dim strfile As String
Dim nFile As Integer
nFile = FreeFile
strfile = "c:\0Testfile.txt"
If bKill = True Then FileExist strfile, True
Open strfile For Append As nFile
Print #nFile, Format$(Now, "d mmm yyyy hh:mm:ss") + " - " + msg
Close #nFile
End Sub

Sub DB_OpenLocalDBConnection(dbConn As ADODB.Connection, strDBFile As String)
Dim strConnection As String
'strConnection = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" + strDBFile
strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" + strDBFile
SendToErrorFile strConnection, False
Set dbConn = New ADODB.Connection
SendToErrorFile "db Connection Set", False
dbConn.Open strConnection
SendToErrorFile "db Connection Opened", False
End Sub

Sub DB_OpenLocalDBTable(dbConn As ADODB.Connection, rst As ADODB.Recordset, strTableToOpen As String)
   Set rst = New ADODB.Recordset
    SendToErrorFile "Table Set", False
   rst.CursorType = adOpenKeyset  'adOpenStatic
   SendToErrorFile "CursorType Set", False
   rst.LockType = adLockOptimistic  'adLockBatchOptimistic
   SendToErrorFile "LockType Set", False
   rst.Open strTableToOpen, dbConn, , , adCmdTable
   SendToErrorFile "Table Open", False
End Sub

Function FileExist(strFileName As String, Optional KillIt As Boolean, Optional CopyKillIt As Boolean) As Boolean
Dim nFile As Integer
On Error Resume Next
nFile = FreeFile
Open strFileName For Input As nFile
If Err.Number <> 0 Then
    FileExist = False
Else
    FileExist = True
End If
Close nFile
If KillIt = True Then
    Kill strFileName
End If
End Function