Some help needed to solve this error

[akhileshbc]

Hai guys..,
I had developed a software. And created its setup file using InnoSetup. When I install my software in another computer, its fine.
But when I run the software and when I clicked menu to show another form, an error occurs. The below one is the error:

Class not registered. 
Looking for object with CLSID:{00000010-0000-0010-8000-00AA006D2EA4}

Below is the code on the Form's Load event:

Private Sub Form_Load()
On Error GoTo err
Screen.MousePointer = vbHourglass

Data1.DatabaseName = App.Path & "\database.mdb"
Data1.RecordSource = "student"
Data1.Refresh
Data2.DatabaseName = App.Path & "\database.mdb"
Data2.RecordSource = "course"
Data2.Refresh
DBCombo1.ListField = "name"
'CreateID 'func
ClearAll 'func to clear everything

Screen.MousePointer = vbNormal
Exit Sub
err:
    MsgBox "Error !. Please contact us immediately (ph: +xx xxxxxxxxxx)", vbCritical, "Error"
    ErrorLog err.Description, Me.Name, "form_load"
    Exit Sub
End Sub

But the form is shown after the error message.
Then when I click on the Close(X mark)button of that form , the below error is displayed:

Object variable or With block variable not set

The code on the unload event of that form is:

Private Sub Form_Unload(Cancel As Integer)
On Error GoTo err

Data1.Database.Close
Data1.DatabaseName = ""
Data1.RecordSource = ""
Data2.Database.Close
Data2.DatabaseName = ""
Data2.RecordSource = ""

Exit Sub
err:
    MsgBox "Error !. Please contact us immediately (ph: +xx xxxxxxxxxx)", vbCritical, "Error"
    ErrorLog err.Description, Me.Name, "form_unload"
    Exit Sub
End Sub

--
This is the problem
I think this problem is due to the DAO component.

Please help me........... its very urgent...

Help...help...help..me.......please help me