Mach mal folgende Änderungen:
set rst = Server.CreateObject("ADODB.Recordset")
x = Request.QueryString("Beratungen_Zusatzinfo")
Beratung_Zusatzinfo = replace(x,"'","''")
sqlString = "INSERT INTO Beratungen (Beratungen_Text, Beratungen_Zusatzinfo) VALUES ('" & Beratung_Text & "','" & Beratung_Zusatzinfo & "')"
rst.Open sqlstring, objConn
rst.Close
Und stelle das Id Feld in der Datenbank auf Auto-Nummer mit Inkrement 1 um. Dann musst du nicht immer die ID-Ermitteln und ich glaube es könnte auch das Problem lösen, bin mir aber nicht ganz sicher. Schreib mir mal deine Ergebnisse oder Einwände.
MfG
Florian