(سؤال؟)كود اضافة التاريخ في قاعدة البيانات

كود :

Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click

        ''datt.Text = DateTimePicker1.Text

        If (TextBox2.Text = "" Or TextBox4.Text = "" Or RichTextBox1.Text = "") Then

            MsgBox(" ?↔?اكمل بياناتك")

        Else

            tafel1 = 1

            Try

                con.Open()

                com.Connection = con

                com.CommandText = "insert into sect1 (sect_numb,sect_name,data_sect,tafell,data_tafell,nots) values ( " & TextBox2.Text & ",'" & TextBox4.Text & "', " & DateTimePicker1.Text & " ," & tafel1.ToString & ", " & DateTimePicker2.Text & " ,'" & RichTextBox1.Text & "')"

                ' com.CommandText = "insert into sect1 values(" & TextBox2.Text & ",'" & TextBox4.Text & "','" & DateTimePicker1.ToString & "'," & tafel1 & ",'" & DateTimePicker2.ToString & "','" & RichTextBox1.Text & "')"

                com.ExecuteNonQuery()

                MsgBox("تم التسجيل بنجاح")

                ds.Reset()

                Dim sql4 As String = "select *from sect1 "

                Dim da As New SqlDataAdapter(sql4, con)

                da.Fill(ds, "sect1")

                DataGridView1.DataSource = ds.Tables(0)

            Catch ex As Exception

                MsgBox(ex.Message)

                MsgBox("لم يتم التسجيل")

            Finally

                con.Close()

            End Try

        End If

    End Sub

كود :

com.Connection = con

                com.CommandType = CommandType.Text

                com.CommandText = "insert into sect1 (sect_numb,sect_name,data_sect,tafell,data_tafell,nots) values ( '" & TextBox2.Text &

                    "','" & TextBox4.Text &

                    "','" & DateTimePicker1.Value &

                    "','" & tafel1.ToString &

                    "','" & DateTimePicker2.Value &

                    "','" & RichTextBox1.Text & "')"

                com.ExecuteNonQuery()