Good day. I'm having a peculiar issue with my vb 6 applications running in windows 7 ultimate.

All this while, my vb 6 IDE had been updated to sp6. And everything was working fine (for more than 6 months) until 2 days ago after i updated to windows 7 sp1.

Now, I keep getting the above error, whenever i try to run any of my already working applications. I even changed my ado reference from 2.5 upto 2.8 & yet no show. I have also uninstalled the vb 6 & re-installed.

I have also tried editing the syntax reference after changing my reference library from ado 2.5 to 2.6 like below without success:
Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, _
ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, _
ByVal pRecordset As ADODB.Recordset20)
' display number of current record and total number of records
lblRecord.Caption = CStr(Adodc1.Recordset.AbsolutePosition) & _
" of " & Str(Adodc1.Recordset.RecordCount)
End Sub

So, what do i need to do NOW since it appears the SP1 upgrade has somehow "tampered" with some settings to make my vb 6.0 sp6 start mal-functioning ?