String or binary data would be truncated. The statement has been terminated.

كود :
For Each fl In IO.Directory.GetFiles(fbd.SelectedPath & "\")

            If IO.Path.GetExtension(IO.Path.GetFileName(fl)) = ".jpg" = True Or IO.Path.GetExtension(IO.Path.GetFileName(fl)) = ".gif" Or IO.Path.GetExtension(IO.Path.GetFileName(fl)) = ".png" Or IO.Path.GetExtension(IO.Path.GetFileName(fl)) = ".jpeg" Or IO.Path.GetExtension(IO.Path.GetFileName(fl)) = ".JPG" Then

                'MsgBox(IO.Path.GetExtension(IO.Path.GetFileName(fl)))

                ' MsgBox("jpg")

                Dim p() As Byte = My.Computer.FileSystem.ReadAllBytes(IO.Path.GetFullPath(fl))

                Dim cm As New SqlCommand("insert into pic (picname,picbyte) values (@picname,@picbyte)", con)

























                cm.Parameters.AddWithValue("@picname", SqlDbType.VarChar).Value = IO.Path.GetFileName(fl)

















                cm.Parameters.AddWithValue("@picbyte", p)

















































                cm.ExecuteNonQuery()

                ProgressBar1.Value += 1

                ll.Text = ProgressBar1.Value









            End If

        Next