Link to home
Start Free TrialLog in
Avatar of Lynn Thames
Lynn ThamesFlag for United States of America

asked on

Run-Time error '713' Class not registered looking for object with CLSID . . . . in VB6 app on vista

I have a VB6 application that is really old and was never really used.  One of my co-workers needs to run it on her computer temporarily to get some information off of it.

She doesn't have VB6 installed on her computer but we have an installation script for our software package that installs everything our normal software uses.   So there is obviously something missing that this project requires that we don't in anything else.

I'm stumpted because what research I've done points to a possible issue with mdac not being installed?   But I thought that mdac didn't get installed on vista because it was already included.  

We only have one program in our software suite that uses microsofts data access and she doesn't have any problem with it . . but it doesn't use any bound controls, which is where this program is bombing off on her computer.

I added some logging to the program, compiled it, and sent it to her and it is getting the error on the following line:

Set txtRuleID.DataSource = rsE3MASTER   (see all of the code below)

Any thoughts?

Thanks so much!
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\madison\winest3\WINEST3.MDB"
conn.Open
Set rsE3MASTER = New ADODB.Recordset
rsE3MASTER.CursorLocation = adUseClient
rsE3MASTER.Sort = "RULENO ASC"
rsE3MASTER.Open "E3MASTER", conn, adOpenStatic, adLockOptimistic, adCmdTableDirect
With rsE3MASTER
   While Not .EOF
      lstFeatures.AddItem !desc
      lstFeatures.ItemData(lstFeatures.NewIndex) = !ruleid
   .MoveNext
   Wend
End With
 
set txtRuleID.DataSource = rsE3MASTER
. . . . . . .

Open in new window

ASKER CERTIFIED SOLUTION
Avatar of nffvrxqgrcfqvvc
nffvrxqgrcfqvvc

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial