Public Class frmEssensbestellungen
    Private Sub frmEssensbestellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'MyComboBox1.fillWithSQL("Select [MenuTitel] from [GMenu]")

        MyComboBox1.fillWithSQL("Select [MenuTitel] from [GMenu]",, "Gastro", True)

    End Sub
End Class