Problema - Alteração de Dados no BD.

Tenho o seguinte código em uma página ASP...

<%@ Language=VBScript CODEPAGE="65001"%>

<!-- #include file="conexaobd.asp" -->

<%
Dim cod, listar

cod = request("cod")

Set listar = Server.CreateObject("ADODB.Recordset")
listar.open "Select * from form where 'cod='" & cod, connstring

while
%>

Ele está funcionando normal.... Só que a hora de alterar os dados no BD ele deixa igual a tabela toda com o mesmo registro.... Se existir 10 cadastros todos ficam exatamente do mesmo jeito...

Preciso de uma ajuda com certa urgência....

Att.