[shado1796]

[COLOR="#0000CD"]خلاص حليتها والحمد لله
وللفائدة لمن واجهته المشكلة هذا طبعا الكود ... كود الاضافة الثاني

كود :

' Add New Record
        Conn.Open()
        Dim Cmd2 As New SqlCommand("insert into Table1 (NameCloth,TypeCloth,LengthM) values ( '" & Trim(TextBox6.Text) & "'  , '" & Trim(TextBox5.Text) & "' , " & Val(TextBox12.Text) & " )", Conn)
        Cmd2.ExecuteNonQuery()

        RefreshListView2()
    End Sub

طبعا اذا كانت الخانة نص Trim
واذا كانت الخانة رقم Val
وايضا لا ننسى علامة الترقيم "' بين القوسيين للنص Trim
طبعا كل شئ موضح في الكود ..

شكرا لكم ،،[/COLOR]