Problemas vb.net/ Mysql

Ola pessoal....estou tentando dar um update na minha tabela, mas sai um erro assim:
ERROR [HYT00] [MySQL][ODBC 3.51 Driver][mysqld-5.0.27-community-nt]Data truncated for column ´Decsol´ at row 1
(Na executenoquery)

Estou passando meu codigo....se alguem puder me ajudar...agradeço...
Dim decsol, fot, q, ahn As Double
decsol = 23.45 * Sin(((360 / 365) * (d - 80)) * PI / 180)
ahn = Acos((-Tan(lat * PI / 180) * Tan(decsol * PI / 180)) * PI / 180)
fot = 2 * ahn / 15
q = 37.6 * (((Cos((360 * d / 365) * PI / 180)) * 0.033 + 1) * Sin(lat * PI / 180) * Sin(decsol * PI / 180) * ahn + Cos(lat * PI / 180) * Cos(d * PI / 180) * Sin(ahn * PI / 180))
com = ´UPDATE excel SET Decsol=´´ & decsol & ´´ ´
cmdsqlo = New OdbcCommand(com, conexao)
reg = (´SELECT * FROM excel´)
reg = cmdsqlo.ExecuteNonQuery()
da.Update(ds, ´excel´)
da.Fill(ds, ´excel´)