Automation error in VB6

From: TJVJ (anonymous_at_discussions.microsoft.com)
Date: 03/30/04 

Date: Tue, 30 Mar 2004 15:51:07 -0800

I am using VB 6.0 SP1 and Access2000 on Windows XP Machine.I am using DAO3.6 in my application. Everything works fine in IDE and on my computer. My end users have XP machines. The have installed the application through Install Shield.The problem is that they keep on getting the following error message:
Error: 2147417848(80010108)
Automation error.
The object invoked has disconnected from its clients.
There is no fix position for this error, it just occurs sometime on command button click, sometime while loading another form, sometimes while entering an item in the form.

It oftens occurs at this point :
Case NEW_SALES_BUTTON
            'If lstDates.ListIndex <> -1 Then
            If fintUseSelectedDate Then
                lstDates.Col = 0
                frmAddSales.txtActivityDate = lstDates.ColText
            Else
                frmAddSales.txtActivityDate = (Date + gintDefaultActivityDate)
            End If
            frmAddSales.Show MODAL

I installed the VB6.0 SP and again made an installer but that didnot fix it. I added MDAC2.7 in my Windows installer so that it installs before my application installs, but that didnot help. I also install the DAO SP. I just read that to install MDAC2.7 on XP, i'll have to have XP SP1. Is that correct?? Can you help me with this problem??