Private Sub DGViewSucheRechnung_CellDoubleClick(ByVal sender As _
      System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) _
      Handles DGViewSucheRechnung.CellDoubleClick
        OpenArtikelbyUIDonClick()
    End Sub
 
    Public Sub OpenRechnungUIDonClick()
        Try
            Dim frmRechnung As New frmRechnung
            Dim tmpUID As String
            frmRechnung.MdiParent = Me.MdiParent
            frmRechnung.Show() '<-- Fehler tritt hier am Ende auf
            tmpUID = GetCurrentRechnungUIDbyClick()
            'Jetzt wird im Normalfall das Form geöffnet und gefiltert.
            frmRechnung.TblRechnungBindingSource.Filter = "UID = " & tmpUID
            frmRechnung.TblRechnungBindingSource.EndEdit()
            frmRechnung.FilterMe()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
 
        End Try
    End Sub
 
    Public Function GetCurrentRechnungUIDbyClick() As String
        Dim selectedCellCount As Integer = DGViewSucheRechnung.GetCellCount( _
          DataGridViewElementStates.Selected)
        Dim tmp As String, tmpRow As Integer,
        tmp = ""
        Dim i As Integer
        For i = 0 To selectedCellCount - 1
            tmpRow = CInt(DGViewSucheRechnung.SelectedCells( _
              i).RowIndex.ToString())
            tmp = DGViewSucheRechnung.Item(6, tmpRow).Value
        Next i
        GetCurrentRechnungUIDbyClick = tmp
    End Function

            Me.Tbl_RechnungenTableAdapter.Fill(Me.DatenDB.tbl_Rechnungen)
Me.Tbl_RechnungenPositionenTableAdapter.Fill( _
  Me.DatenDB.tbl_RechnungenPositionen)
            Me.Tbl_KundenTableAdapter.Fill(Me.DatenDB.tbl_Kunden)
            Me.Tbl_ZahlungsZieleTableAdapter.Fill(Me.DatenDB.tbl_ZahlungsZiele)
            Me.Tbl_SteuersätzeTableAdapter.Fill(Me.DatenDB.tbl_Steuersätze)