Public Sub Provider()
        Try
            con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
              "Source=" & DBPfad & "\DB.mdb;Persist Security Info=True;Jet" & _
              "OLEDB:Database Password=*******"
            cmd.Connection = con
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
            Provider()
            con.Open()
            cmd.CommandText = "SELECT * FROM Genehmiger WHERE Gruppe = '" & _
              TextBox_Write.Text & "'"
            reader = cmd.ExecuteReader()
            Do While reader.Read()
                MsgBox(reader("Genehmiger1").ToString)
            Loop
            reader.Close()
            con.Close()