Private Sub Uebung6_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        conn.ConnectionString = "Provider= Microsoft.Ace.oledb.12.0; DataSource" & _
        "= " & Application.StartupPath & "\Uebung6.accdb"
        conn.Open()