I'm using vb.net, and I'm using the old com library for internet exploer, that is the one you'd use in vb6, or
SHDocVW.InternetExplorer. I have a datagrid that when you click on an item in a column it should load a corresponding web page. The problem is if you close the web page after it opens and then try to open another one it crashes with this error (sadly inside my error handler on the line where I go either 'myexplorer = new shdocvw.internetexplorer' which should just release the handle and give me a new one, or even if I try to do a 'myexplorer =  nothing' first..)

ERROR:
The object invoked has disconnected from its clients. (Exception from HRESULT: 0x80010108 (RPC_E_DISCONNECTED))

The function it occurs inside is here:


    Private Sub openWebPage(ByVal webURL$)
        Dim pageReset As Boolean = False
        On Error GoTo ResetWebPage
        LoadWebPageByUrl(webURL)
        Exit Sub
ResetWebPage:
        If pageReset = False Then
            Err.Clear()
            AttemptToClosePage()
            myExplorer = New SHDocVw.InternetExplorer <= CRASHES ON THIS LINE!
            pageReset = True
            LoadWebPageByUrl(webURL)
            Exit Sub
        End If
    End Sub

Any help on this matter would be greatly appreciated. The whole problem should be as simple as resetting the object that is 'myExplorer' but for some reason that does not work as it would in vb6.

Thanks Experts! ~ Michael

Here is all the related code:

    Private Sub myDataGrid_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles myDataGrid.CurrentCellChanged
        Dim col As Integer = Me.myDataGrid.CurrentCell.ColumnNumber
        Dim row As Integer = Me.myDataGrid.CurrentCell.RowNumber
        'On Error GoTo Whatever
        Dim cellVal$ = nz(Me.myDataGrid.Item(row, col))
        If Me.myDataGrid.TableStyles().Count = 0 Then Exit Sub
        Dim colName$ = Me.myDataGrid.TableStyles(0).GridColumnStyles.Item(col).MappingName
        'Dim colName$ = myDB.myDS.Tables(gTableLoadedInGrid).Columns(col).ColumnName
        'MsgBox(row & vbCrLf & col)
        If Not colName = "RecNum" Then Exit Sub
        If cellVal <> "" Then
            Dim newurl = makeUrl(cellVal)
            If newurl <> "" Then openWebPage(newurl)
        End If
Whatever:
    End Sub

Private Sub openWebPage(ByVal webURL$)
        Dim pageReset As Boolean = False
        On Error GoTo ResetWebPage
        LoadWebPageByUrl(webURL)
        Exit Sub
ResetWebPage:
        If pageReset = False Then
            Err.Clear()
            AttemptToClosePage()
            myExplorer = New SHDocVw.InternetExplorer <= CRASHES ON THIS LINE!
            pageReset = True
            LoadWebPageByUrl(webURL)
            Exit Sub
        End If
    End Sub

    Private Function makeUrl(ByVal recNum$) As String
        Dim suffix$ = ""
        If InStr("ABCDEFGHIJKLMNOPQRSTUVWXYZ", UCase(Mid(recNum, Len(recNum), 1))) > 0 Then
            suffix = recNum(Len(recNum))    'we have a letter
            recNum = Mid(recNum, 1, Len(recNum) - 1)
        End If
        makeUrl = "about:blank"
        makeUrl = Replace(Replace(gRecorderURL, "[RecNum]", recNum), "[Suffix]", suffix)
    End Function

    Private Sub LoadWebPageByUrl(ByVal webUrl$)
        Me.fldDoing.Text = "Opening Web Page.."
        With myExplorer
            .Navigate(webUrl)
            waitForDoc(myExplorer)
            'set the PDF option checkbox to false & submit form to go to file
            .Document.Forms("frmMain")("format")(0).Click()
            .Document.Forms("frmMain")("PageNo").value = 1
            .Document.Forms("frmMain")("btnAllPages").Click()   'SUBMIT form
            .Visible = True
        End With
        Me.fldDoing.Text = ""
        'Try to figure out here how to set the focus of this window
    End Sub

    Private Sub AttemptToClosePage()
        On Error GoTo JustLeaveSub
        myExplorer.Quit()
        myExplorer.Visible = False
JustLeaveSub:
    End Sub