Private Sub MainWindow_Load(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Left = CInt((Screen.PrimaryScreen.WorkingArea.Width - Me.Width) / 2)
        Me.Top = CInt((Screen.PrimaryScreen.WorkingArea.Height - Me.Height) / 2)
        TextBox9.Text = "445"
        Timer2.Enabled = True
        K1.connStringy = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
          Application.StartupPath & "\Film.mdb"
 
        Dim conn As New OleDb.OleDbConnection(K1.connStringy)
        Dim sql As String = "SELECT * FROM DVDs ORDER BY Film_ID DESC"
        K1.day = New OleDb.OleDbDataAdapter(sql, conn)
        Dim cb As New OleDb.OleDbCommandBuilder(K1.day)
        Try
 
            K1.day.Fill(K1.dsy, "tblFilme")
 
 
        Catch ex As System.Exception
            MsgBox(ex.ToString())
            Return
        End Try
        K1.Tv = K1.dsy.Tables("tblFilme").DefaultView
 
 
 
        ' Neuzeichnen, wenn die Fenstergröße verändert wird
        SetStyle(ControlStyles.ResizeRedraw, True)
 
        ' Pfad mit Text anlegen
        Path.AddString(DrawingText, Font.FontFamily, Font.Style, _
          Font.Size, New Point(0, 0), New StringFormat)
 
 
    End Sub

Hobby Programmierer u. "Komponist"
https://www.youtube.com/channel/UCRuq2bapBxHV9ZA1tPI223g