Error al actualizar registro

[malax]

Hola que tal soy nuevo por acá y quisiera ver si es posible que me ayuden ps soy principiante en esto de VB. Net tengo este codigo:

Private Sub BtnGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGuardar.Click

Dim bd As EmpresaTrasportesDataContext = EmpresaTransporte.conexion()

Dim reg = From r In bd.Camion Where r.matricula = TxtMat.Text Select r

For Each r As Camion In reg
r.modelo = TxtMod.Text
r.tipo = TxtTipo.Text
r.potencia = TxtPotencia.Text
Next

Try
bd.SubmitChanges()
GridCamion.DataSource = EmpresaTransporte.GetAllCamiones()

Catch ex As Exception
Throw (ex)
End Try

End Sub

el caso es que me manda el siguiente error y no se que sea por mas que le doy vueltas al asunto, el error es el siguiente:

"Los datos de cadena o binarios se truncarían. Se terminó la instrucción."