UPDATE

Hvorfor virker dette ikke?

sub_OpenDB Conn

SQL1 = "SELECT * FROM CRM WHERE (Kind2 = '1')"
Set RS = Conn.Execute(SQL1)
taeller = 1
Do while not RS.EOF
tal = 1
SQL = "UPDATE CRM SET Kind4 = '1'"
SQL = SQL & " WHERE ID = " & RS("ID")    
Set RS1 = Conn.Execute(SQL)
'set rs5 = nothing

response.write(taeller & " " & rs("Kind2") & SQL & "<br>")
taeller = taeller + 1
RS.Movenext
Loop

RS.Close
Set RS = Nothing

PS : Kind4 er text, ID er number, det er en accessdatabase.

Det er updatefunktionen der noget galt med