I tried the code below which worked fine on my friends machine but is giving an error on my machine.
'Add a reference to Microsoft Remote Data Objects 2.0
Private Sub Form_Load()
Dim en As rdoEnvironment
Set en = rdoEngine.rdoEnvironments(0) 'Error Line.
MsgBox "Successful!" 'Not reached
I tried the following things.
1. Checked the dependency information for msrdo20.dll.
Everything was fine.
2. Replaced the DLL from my frnds machine and
reregistered it. Still not working.