Public Class frmHauptansicht
    Private Sub mnuTabelleEinfügen_Click(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles mnuTabelleEinfügen.Click
        Dim frmDatenbankbrowser As New frmDatenbankbrowser
        If frmDatenbankbrowser.ShowDialog(Me) = DialogResult.OK Then
            'Irgendwelche Auswertungen
        End If
        frmDatenbankbrowser.Dispose()
        frmDatenbankbrowser = Nothing
    End Sub
End Class

        If frmDatenbankbrowser.ShowDialog(Me) = DialogResult.OK Then