Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
 
        MaximizeBox = False
        MinimizeBox = False
        ControlBox = False
        WindowState = FormWindowState.Maximized
 
        'Dynamische Datenbankanbindung
        OleDbConnection1.ConnectionString = _
          "Provider=Microsoft.Jet.OLEDB.4.0;Password=; Data Source= " & myPath _
          & "\Datenbank\Datenbank.mdb"
 
        'Es wird selektiert nach dem angemeldeten Benutzer
        Dim Notizanzahl As Integer
        Dim AnzahlNotiz As String = "SELECT * FROM t_Notiz where Notiz_fuer" & _
          "like '" + Benutzer + "'"
        Adapter_Notizanzahl.SelectCommand.CommandText = AnzahlNotiz
        Adapter_Notizanzahl.Fill(DataSet_Notizanzahl)
        Notizanzahl = DataView_Notizanzahl.Count
        MsgBox(Notizanzahl)
 
    End Sub