ตาดีๆ ช้วยผมดูน่อยครับ ประเภทข้อมูลไม่ตรงกัน (มือใหม่หัดเขียน)

    Private Sub btSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btSave.Click
        If tProductID.Text = "" Then
            MessageBox.Show("กรุณาป้อนรหัสสินค้าก่อน", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Exit Sub
        End If
        If tProductName.Text = "" Then
            MessageBox.Show("กรุณาป้อนข้อมูลให้ครบก่อน", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Exit Sub
        End If
        If tDetailProduct.Text = "" Then
            MessageBox.Show("กรุณาเลือกรูปภาพก่อน", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Exit Sub
        End If
        If tPricecost.Text = "" Then
            MessageBox.Show("กรุณาเลือกรูปภาพก่อน", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Exit Sub
        End If
        If tPricesale.Text = "" Then
            MessageBox.Show("กรุณาเลือกรูปภาพก่อน", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Exit Sub
        End If

        If tStockProduct.Text = "" Then
            MessageBox.Show("กรุณาเลือกรูปภาพก่อน", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Exit Sub
        End If
        If MessageBox.Show("คุณต้องการบันทึกข้อมูลใช่หรือไม่???", "คำยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            Try
                Dim sql As String = ""
                Stringbuilder.Remove(0, Stringbuilder.Length())
                Stringbuilder.Append(" INSERT INTO PRODUCT(IDProduct,NameProduct,IDCategory,DetailProduct,Pricecost,Pricesale,StockProduct,BuyDateProduct)")
                Stringbuilder.Append(" VALUES (@IDProduct,@NameProduct,@IDCategory,@DetailProduct,@Pricecost,@Pricesale,@StockProduct,@BuyDateProduct)")
                sql = Stringbuilder.ToString
                Command = New OleDbCommand
                With Command
                    .CommandType = CommandType.Text
                    .CommandText = sql
                    .Connection = Connection
                    .Parameters.Clear()
                    .Parameters.Add("@IDProduct", OleDbType.VarChar).Value = tProductID.Text
                    .Parameters.Add("@NameProduct", OleDbType.VarChar).Value = tProductName.Text
                    .Parameters.Add("@DetailProduct", OleDbType.VarChar).Value = tDetailProduct.Text
                    .Parameters.Add("@Pricecost", OleDbType.Double).Value = CDbl(tPricecost.Text)
                    .Parameters.Add("@Pricesale", OleDbType.Double).Value = CDbl(tPricesale.Text)
                    .Parameters.Add("@StockProduct", OleDbType.Integer).Value = CInt(tStockProduct.Text)
                    .Parameters.Add("@BuyDateProduct", OleDbType.Date).Value = CDate(tBuyDateProduct.Value)
                    .Parameters.Add("@IDCategory", OleDbType.VarChar).Value = tIDCategory.SelectedValue
                    .ExecuteNonQuery()
                End With
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
            MessageBox.Show("บันทึกข้อมูลเรียบร้อยแล้ว", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
            ShowData()
           
        Else
            MessageBox.Show("ยกเลิกการบันทึกข้อมูล", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
            ShowData()
           
        End If
    End Sub