comando UPDATE

Salve amigos!

Já tentei de tudo mas não consigo fazer esse update:

url_db="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=E:\vhosts\setepontooito.com.br\httpdocs\dados\bd_sete.mdb;"
Set db = Server.CreateObject("ADODB.Connection")
db.Open url_db

'altera os dados no banco de dados
altera = "Update tblpessoal set "
altera = altera & "nome = '" & nome & "',"
altera = altera & "endereco = '" & endereco & "',"
altera = altera & "cod_sexo = " & cod_sexo & ","
altera = altera & "ddd_tel = '" & ddd_tel & "',"
altera = altera & "telefone = '" & telefone & "',"
altera = altera & "ddd_cel = '" & ddd_cel & "',"
altera = altera & "celular = '" & celular & "',"
altera = altera & "nascimento = '" & nascimento & "',"
altera = altera & "altura = '" & altura & "',"
altera = altera & "olhos = '" & olhos & "',"
altera = altera & "cabelos = '" & cabelos & "',"
altera = altera & "peso = " & peso & ","
altera = altera & "manequim = " & manequim & ","
altera = altera & "sapatos = " & sapatos & ","
altera = altera & "cod_profi = " & cod_profi & ","
altera = altera & "outros = '" & outro & "',"
altera = altera & "email = '" & email & "',"
altera = altera & "obs = '" & obs & "',"
altera = altera & "foto = '" & cfoto & "',"
altera = altera & "where cod= " & cod

db.Execute(altera)o response do comendo está assim:

Update tblpessoal set nome = 'Teste KRC',endereco = 'teste',cod_sexo = 2,ddd_tel = '11',telefone = '61285251',ddd_cel = '11',celular = '999999999',nascimento = '25/04/1985',altura = '1,80',olhos = 'tetestes',cabelos = 'teste',peso = 78,manequim = 40,sapatos = 41,cod_profi = 8,outros = 'jhgjh',email = 'diego@krcdesign.com.br',obs = 'nada a declarar',foto = 'Montanhas azuis.jpg',where cod= 643
não consigo ver nenhum erro

Quem pouder me dar uma ajuda agradeço desde já!