رسالة خطأ تظهر من ExecuteNonQuery

السلام عليكم

عند تنفيذ هذا الكود في البرنامج يعطيني في بعض الاحيان رسالة خطأ والغريب انه ينفذ بشكل صحيح ولا يعطي خطأ في احيان اخرى

والكود هو كالتالي

Dim sql1 As String = " insert into reportes(num,time,illness,docrep,doct_name) values( '" & ListBox3.SelectedItem & "','" & Date1.Value & "','" & ComboBox7.Text & "','" & RTBox1.Text & "','" & empname & "')"
			Dim cmd1 As New SqlClient.SqlCommand(sql1, con)



			cmd1.ExecuteNonQuery()

و موقع الخطأ عند جملة cmd1.ExecuteNonQuery()

ورسالة الخطأ هي كالتالي

String or binary data would be truncated.

The statement has been terminated.

فما المشكلة؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟