เพิ่งหัดเขียน VB อะค่ะ และใช้ DateTimePicket เก็บค่าวันเดือนปี แต่พอบันทึกใน MySQL แล้วมันบันทึกเป็น"0000/00/00" เพราะอะไรอะค่ะ

Imports System.Data
Imports MySql.Data.MySqlClient

Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dtpDatedata.Text = ""
        Txtidbook.Text = ""
        Txtnamebook.Text = ""
        Txtauthor.Text = ""
        Cb1type.Text = "หมวดหมู่"
        Txtbooks.Text = ""
        Txtcopy.Text = ""
        Txtpublisher.Text = ""
        Txtnumber.Text = ""
        Txtprice.Text = ""
        Txtweight.Text = ""

    End Sub

    Private Sub Btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnclear.Click
        Me.dtpDatedata.Text = ""
        Me.Txtidbook.Text = ""
        Me.Txtnamebook.Text = ""
        Me.Txtauthor.Text = ""
        Me.Txtbooks.Text = ""
        Me.Txtcopy.Text = ""
        Me.Txtpublisher.Text = ""
        Me.Txtnumber.Text = ""
        Me.Txtprice.Text = ""
        Me.Txtweight.Text = ""
        Me.Txtidbook.Focus()
    End Sub

    Private Sub Btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnadd.Click

        Try

            Dim FdCon As New MySqlConnection("Database=book;Data Source=localhost;User Id=root;Password=1234")
            Dim fdCom As New MySqlCommand("", FdCon)
            FdCon.Open()

            Dim sdtpDatedata As String = dtpDatedata.Text
            Dim sidbook As String = Txtidbook.Text
            Dim snamebook As String = Txtnamebook.Text
            Dim sauthor As String = Txtauthor.Text
            Dim sCb1type As String = Cb1type.Text
            Dim sbooks As String = Txtbooks.Text
            Dim scopy As String = Txtcopy.Text
            Dim spublisher As String = Txtpublisher.Text
            Dim snumber As String = Txtnumber.Text
            Dim sprice As String = Txtprice.Text
            Dim sweight As String = Txtweight.Text

            fdCom.Connection = FdCon
            fdCom.CommandText = "INSERT INTO books(dayadds,idbook,namebook,author,type,books,copy,publisher,number,price,weight) VALUES ('" & dtpDatedata.Text & "','" & Txtidbook.Text & "','" & Txtnamebook.Text & "','" & Txtauthor.Text & "','" & Cb1type.Text & "','" & Txtbooks.Text & "','" & Txtcopy.Text & "','" & Txtpublisher.Text & "','" & Txtnumber.Text & "','" & Txtprice.Text & "','" & Txtweight.Text & "')"
            '--fdCom.CommandText = "INSERT INTO books(dayadds,idbook,namebook,author,type,books,copy,publisher,number,price,weight) VALUES ('11','11','11','11','11','11','11','11','11','11','11')"

            fdCom.ExecuteNonQuery()
            FdCon.Close()
            MsgBox("เพิ่มข้อมูลเรียบร้อยแล้ว")



        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

    Private Sub Cb1type_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cb1type.SelectedIndexChanged
        Dim Cb1type(23) As String
        Cb1type(0) = "01-ตำราเรียน/คู่มือเตรียมสอบ"
        Cb1type(1) = "02-พจนานุกรม/DICTIONARY"
        Cb1type(2) = "03-การเมือง"
        Cb1type(3) = "04-กฎหมาย"
        Cb1type(4) = "05-หนังสือนิทานภาพสำหรับเด็ก	"
        Cb1type(5) = "06-นิยายจีน"
        Cb1type(6) = "07-นิยายทั่วไป"
        Cb1type(7) = "08-หนังสือรวมเรื่องสั้น"
        Cb1type(8) = "09-หนังสือสำหรับเด็ก"
        Cb1type(9) = "10-วารสารวิชาการ"
        Cb1type(10) = "11-ศิลปะ/ดนตรี"
        Cb1type(11) = "12-เทคโนโลยีและคอมพิวเตอร์"
        Cb1type(12) = "13-ธรรมะ/ศาสนา/ปรัชญา	"
        Cb1type(13) = "14-จิตวิทยา/แนวคิด/HOW TO"
        Cb1type(14) = "15-วรรณกรรมเยาวชน"
        Cb1type(15) = "16-วรรณกรรมแปล"
        Cb1type(16) = "17-วรรณกรรมไทย"
        Cb1type(17) = "18-ประวัติศาสตร์"
        Cb1type(18) = "19-อาหาร/สุขภาพ"
        Cb1type(19) = "20-เศรษฐกิจ/ธุรกิจ/การเงิน/บริหาร"
        Cb1type(20) = "21-ท่องเที่ยว"
        Cb1type(21) = "22-ภาษา"
        Cb1type(22) = "23-หนังสือประมูล/ระดมทุน"
        Cb1type(23) = "24-สังคมและประเพณี"
    End Sub

    Private Sub เพิ่มหนังสือToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles เพมหนงสอToolStripMenuItem.Click
        Form3.Show()
        Me.Hide()
    End Sub

    Private Sub ค้นหาหนังสือToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles คนหาหนงสอToolStripMenuItem.Click
        Form4.Show()
        Me.Hide()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnexit.Click
        Me.Close()
    End Sub
End Class