從 字元字串转换成日期及/或时间时,转换失败,该怎么解决

從 字元字串转换成日期及/或时间时,转换失败
儲存數據時出現：從 字元字串转换成日期及/或时间时,转换失败，我是業余愛好新手，求解決方法

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Form1.a1 = True Then

            If ComboBox2.Text = "" Then
                MsgBox("有欄位未填數據")
            Else
                Dim constr As String

                constr = ("Data Source=mark-pc\SQLEXPRESS;Initial Catalog=engineer;Integrated Security=False;User ID=sa;Password=123456;")
                sqlcon.ConnectionString = constr
                sqlcon.Open()

                sqlcmd.CommandText = "select * from mjbm"
                sqlcmd.Connection = sqlcon

                Dim myadapter As New SqlDataAdapter

                myadapter.SelectCommand = sqlcmd
                myadapter.Fill(myds)
                Dim i As Integer = 0
                Dim j As Boolean = False
                For i = 0 To myds.Tables(0).Rows.Count - 1 Step 1
                    If TextBox1.Text = myds.Tables(0).Rows(i)(0) Then
                        j = True
                    End If
                Next
                If j = True Then
                    MsgBox("已有此項了哦！")
                    sqlcon.Close()
                Else
                    sqlcmd.CommandText = "insert into mjbm(類別,編碼,結構,名稱,開模廠商,日期,適用客戶,適用品名,編碼者) values('" & (ComboBox1.Text) & "','" & TextBox1.Text & "','" & ComboBox2.Text & "','" & TextBox2.Text & "','" & ComboBox3.Text & "','" & DateTimePicker1.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & ComboBox4.Text & "')"

                    sqlcmd.Connection = sqlcon
                    sqlcmd.ExecuteNonQuery()
                    If MessageBox.Show("添加成功是否繼續添加", "成功", MessageBoxButtons.YesNo, MessageBoxIcon.Asterisk) = Windows.Forms.DialogResult.Yes Then

                        Me.Refresh()

                        ComboBox1.Text = ""
                        ComboBox2.Text = ""
                        ComboBox3.Text = ""
                        ComboBox4.Text = ""
                        TextBox1.Text = ""
                        TextBox2.Text = ""