Set conn = Server.CreateObject("ADODB.Connection")
T="PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=Datenbank.mdb"
conn.open (T)
 
Set dbZitate_Zitate = server.CreateObject ("ADODB.Recordset")
dbZitate_Zitate.Open "SELECT * FROM Zitate ORDER BY ID", conn2, 1,3
dbZitate_Zitate.close
dbZitate_Zitate.open "SELECT *,'T' AS Benotung FROM Zitate ORDER BY ID"

dbZitate_Zitate("Benotung")="kkkk"

____________________________________