Run-time error '-2147417848 (80010108)'

This one has me stumped.  I get an error on the Got Focus event of a combo-box control.  It only happens when the form is opened and the combo-box is then clicked before entering values in other controls.  It's not a run-of-the-mill error that I can track down...very cryptic.

If I populate the form with values, and then insert those values into a table, the control operates as expected.  I have no idea why this would be related, but it seems to be.


Error text
   __________________________________________
   Run-time error '-2147417848 (80010108)':

   Automation error
   The object invoked has disconnected from its clients.
   __________________________________________

Sometime when I click on Debug, I'm able to step through the code without an error.  Sometimes I get the same error
Sometimes Access crashes


Here's what I've done to try and resolve the error.
   1. Verify that code is compiled
   2. Perform Compact/Repair (twice in succession)
   3. Create a new db and import all objects from original db
   4. Add a reference that was in the old db and not in the new db.
   5. Re-compiled code, re-compact/repair

Here are the references (in order)
   Visual Basic For Applications
   Microsoft Access 9.0 Obhect Library
   OLE Automation
   Microsoft ActiveX Data Objects 3.1 Library
   Microsoft DAO 3.6 Object Library


Here is the code for the control
Private Sub cmb_find_GotFocus()
   'Displays a list of inspections to find.  If an inspection is in progress and incomplete, return user to the first incomplete field.

'Check to see if an inspection has not been started (ie. form is blank)
    Dim v_insid
    v_insid = Me.ins_id  <-----------------------------------------------------------ERROR POINT
    If v_insid = "" Or IsNull(v_insid) Then
        GetRowSource Me.Controls(cmb_find.Name)
        Exit Sub
    End If

'If an inspection is in progress, check to see if it has been completed
    On Error Resume Next
    v_indid = ValidateDetail(Forms!inspection!inspection_detail.Form!ind_insid.Value)
    On Error GoTo 0
    If v_indid = 0 Then
        GetRowSource Me.Controls(cmb_find.Name)
    Else: SetFocusToResponse (v_indid)
        Exit Sub
    End If

End Sub