Peki şu şekilde dener misiniz:

Sur.Execute("UPDATE doviz_kurlarim set usd_al="&usd_al&" , usd_sat="&usd_sat&" ")
Sur.Execute("UPDATE doviz_kurlarim set eur_al="&eur_al&" , eur_sat="&eur_sat&" ")
Sur.Execute("UPDATE doviz_kurlarim set gbp_al="&replace(gbp_al,",",".")&" , gbp_sat="&replace(gbp_sat,",",".")&" ")
Sur.Execute("UPDATE doviz_kurlarim set son_guncelleme='"&tarihsql(Now())&"' ")

Rakamlar eğer virgüllü geliyorsa virgulleri noktaya cevirip yollaması için...