Please would some kind soul help me out.

When I try to run my application on some P.Cs I get some error messages. These are to do with an access database that is incorporated into the application.
When I try to load the database form I get a Data err hit event. If I cancel and try to proceed I get error 91
I have used ********** and have added VB_DCOM_MDAC_Jet autosetup but to no avail.
If I add VB6 to these PCs everything runs O.K
So, is my problem an Error handling problem or am I missing a dependancy file?

I use an ADODB.Connection.

This is the code on my Database form which was produced using VB6 data form wizard.

Private Sub cmdAdd_Click()
Data1.Recordset.AddNew
End Sub

Private Sub cmdDelete_Click()
'this may produce an error if you delete the last
'record or the only record in the recordset
Data1.Recordset.Delete
Data1.Recordset.MoveNext
End Sub

Private Sub cmdRefresh_Click()
'this is really only needed for multi user apps
Data1.Refresh
End Sub

Private Sub cmdUpdate_Click()
txtFields(4).text = (miles(2).text * 1760) * 60 + (yards(3).text * 60)
Data1.UpdateRecord
Data1.Recordset.Bookmark = Data1.Recordset.LastModified

End Sub

Private Sub cmdClose_Click()
Unload Me
Me.MousePointer = vbDefault

End Sub

Private Sub Command1_Click()
Crystal1.Show

End Sub

Private Sub Data1_Error(DataErr As Integer, Response As Integer)
'This is where you would put error handling code
'If you want to ignore errors, comment out the next line
'If you want to trap them, add code here to handle them
MsgBox "Data error event hit err:" & Error$(DataErr)
Response = 0 'throw away the error
End Sub

Private Sub Data1_Reposition()
Screen.MousePointer = vbDefault
On Error Resume Next
'This will display the current record position
'for dynasets and snapshots
Data1.Caption = "Record: " & (Data1.Recordset.AbsolutePosition + 1)
'for the table object you must set the index property when
'the recordset gets created and use the following line
'Data1.Caption = "Record: " & (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01)) + 1
End Sub

Private Sub Data1_Validate(Action As Integer, Save As Integer)
'This is where you put validation code
'This event gets called when the following actions occur
Select Case Action
Case vbDataActionMoveFirst
Case vbDataActionMovePrevious
Case vbDataActionMoveNext
Case vbDataActionMoveLast
Case vbDataActionAddNew
Case vbDataActionUpdate
Case vbDataActionDelete
Case vbDataActionFind
Case vbDataActionBookmark
Case vbDataActionClose
End Select
Screen.MousePointer = vbHourglass
End Sub

Private Sub Form_Load()
Data1.RecordSource = ("Select * From distances Order By name, racepoint")

End Sub