มีเออเร่อตอนกดบันทึกข้อมูลวินโดแอพครับ Conversion from string "INSERT INTO [PRODUCT] ([PRODUCT_" to type 'Double' is not valid.

Sub adddata()
    Dim Conn As New SqlConnection(strCon)
    Dim com As New SqlCommand

    Dim PRICE As Double
    Dim TYPE_ID As Double

    Double.TryParse(txtprice.Text, PRICE )
    Double.TryParse(ComboBox1.SelectedValue, TYPE_ID )

    Dim sql As String = "INSERT INTO [PRODUCT] ([PRODUCT_ID],[PRODUCT_NAME],[PRICE],[TYPE_ID]) VALUES ('" + txtid.Text + "','" + txtname.Text + "','" + PRICE  + "','" + TYPE_ID  + "') "
    Conn.Open()
    With com
        .Connection = Conn
        .CommandType = CommandType.Text
        .CommandText = sql
    End With
    com.ExecuteNonQuery()
End Sub