บันทึกขอมูลจากListview แล้วข้อมูลในDatabass ไม่แสดงผลไม่ครบ !! (VB ภาษาเบสิค)

 'บันทึกตาราง(Doc_detail)
        Dim i As Integer = 0
        For i = 0 To ListView1.Items.Count - 1
            sql = "insert into Doc_detail values( "
            sql &= " '" & TextBox21.Text & "', "
            sql &= " '" & ListView1.Items(i).SubItems(0).Text & "', "
            sql &= " " & Val(ListView1.Items(i).SubItems(3).Text) & ", "       
            sql &= " " & Val(ListView1.Items(i).SubItems(4).Text) & ", "     *ชื่อไฟล์เอกสาร  
            sql &= " " & Val(ListView1.Items(i).SubItems(5).Text) & ", "      *วันที่  
            sql &= " " & Val(ListView1.Items(i).SubItems(6).Text) & ", "      *ข้อความหมายเหตุ
            sql &= " " & Val(ListView1.Items(i).SubItems(7).Text) & ", "  
            sql &= " " & Val(ListView1.Items(i).SubItems(8).Text) & ") "


            ad = New SqlDataAdapter(sql, conn)
            MessageBox.Show(sql)
            ad.Fill(data, "Doc_detail")