[Genius Live]

this'll help you  'ISA' 

            Dim INS As String = "INSERT INTO [Table_Name]

           "([FiledName1] " & _

           ",[FiledName2] " & _

           ",[FiledName3]) " & _

           "VALUES ('" & TextBox1.Text.Trim & "' " & _

           ",'" & TextBox2.Text.Trim & "' " & _

           ",'" & TextBox3.Text.Trim & "') " & _

            Dim con As New SqlConnection("Connection_String")

            If con.State = ConnectionState.Open Then con.Close()

            Dim A As New SqlCommand

            A = New SqlCommand(INS, con)

            A.ExecuteNonQuery()

Table_Name = اسم الجدول بقاعدة البيانات
FiledName1 = اسم الحقل الأول وهكذا ...
Connection_String = نص جملة الإتصال بالخادم