Private Sub LieferantUndLNToolStripMenuItem_Click(ByVal sender As _
  System.Object, ByVal e As System.EventArgs) Handles _
  LieferantUndLNToolStripMenuItem.Click
        Dim constr As New cls_constr
        Dim newviewer As New Newviewer  'childform
        newviewer.MdiParent = Me
        newviewer.Show()
        constr.formdaten(newviewer, "SELECT [LIEFERANT NUMMER],[LIEFERANT NAME]" & _
          "" &
                                                        "FROM" & _
                                                        "QRY_TBLEXCELIMPORT " &
                                                        "GROUP BY [LIEFERANT" & _
                                                        "NUMMER],[LIEFERANT" & _
                                                        "NAME] " &
                                                        "ORDER BY [LIEFERANT" & _
                                                        "NAME]")
    End Sub

Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Windows.Forms
 
Public Class cls_constr
    Inherits Form1
 
    Public _newtbl As New cls_tbllayout  'neues tablelayout erstellen
    Public _newdgv As New cls_dgv     'neues datagridview init
    Public _newconnection As New cls_conn   'neue datenverbindung
 
    Public Sub New()
    End Sub
 
    Public Sub formdaten(ByVal frm As Form, ByVal sendersql As String) _
      'Standardlayout
 
        With frm
 
            .Controls.Add(_newtbl)    'standardtablelayout
            _newtbl.setup_newtablelayoutpanel(_newtbl)
 
            _newtbl.Controls.Add(_newdgv, 0, 1)    standarddatagridview
            _newdgv.setup_newdgv(_newdgv)
 
            _newconnection.newcn(sendersql)    'connection für DGV
            _newdgv.DataSource = _newconnection.newconnection
 
            MsgBox(frm.Name)
        End With
    End Sub
 
End Class