redigering af eksisterende rækker/felter i database

jeg har denne kode
men jeg har det ene problem at hvis teksten i felterne bliver for lang vil den ikke gemme :-/

hvordan ordner jeg dette

<%Dim subcatID,opslag

subcatid=Request.QueryString(\"subcatID\")

Set Connection = Server.CreateObject(\"ADODB.Connection\")
Connection.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\"&Server.MapPath(\"Data/Databank.mdb\")

if request.querystring(\"knap\")<>\"Ret\" then

SQLstringK=\"SELECT * FROM subcat WHERE subcatid=\"&subcatid
SET opslag=Connection.Execute(SQLstringK)
else

SQLstringK=\"UPDATE subcat SET Subcatname=\'\"&Request.QueryString(\"Subcatname\")&\"\', addby=\'\"&Request.QueryString(\"addby\")&\"\', denmark=\'\"&Request.QueryString(\"Denmark\")&\"\', catid=\'\"&Request.QueryString(\"catid\")&\"\' WHERE subcatID=\"&subcatID
Connection.Execute(SQLstringK)
response.buffer=true
response.clear
response.Redirect \"styrmand.asp?gemt=Dine rettelser i artikler er nu gemt!\"
response.end

end if
%>