Dim i As Short

        Dim stday As Long = Long.Parse(DateTimePicker1.Value.Day.ToString)
        Dim stmonth As Long = Long.Parse(DateTimePicker1.Value.Month.ToString)
        Dim styear As Long = Long.Parse(DateTimePicker1.Value.Year.ToString)

        conn.Open()
        If Ambiance_TextBox1.Text = Nothing And Ambiance_TextBox2.Text = Nothing And Ambiance_TextBox3.Text = Nothing And Ambiance_TextBox4.Text = Nothing And Ambiance_TextBox5.Text = Nothing Then
            MessageBox.Show("Data Can't be Blank", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Ambiance_TextBox1.Focus()
            If conn.State = ConnectionState.Open Then
                conn.Close()
            End If
        Else

            Try
                Using cmd As New SqlClient.SqlCommand("insert into tbl_purchase(f_product,f_description,f_rate,f_qty,f_amount,f_date,f_day ,f_mounth,f_year ) values (@f_product,@f_description,@f_rate,@f_qty,@f_amount,@f_date,@f_day ,@f_mounth,@f_year)")
                    cmd.Parameters.AddWithValue("@f_product", Ambiance_TextBox1.Text).DbType.ToString()
                    cmd.Parameters.AddWithValue("@f_description", Ambiance_TextBox5.Text).DbType.ToString()
                    cmd.Parameters.AddWithValue("@f_rate", Ambiance_TextBox3.Text).DbType.ToString()
                    cmd.Parameters.AddWithValue("@f_qty", Ambiance_TextBox2.Text).DbType.ToString()
                    cmd.Parameters.AddWithValue("@f_amount", Ambiance_TextBox4.Text).DbType.ToString()
                    cmd.Parameters.AddWithValue("@f_date", DateTimePicker1.Text).DbType.ToString()
                    cmd.Parameters.AddWithValue("@f_day", stday).DbType.ToString()
                    cmd.Parameters.AddWithValue("@f_mounth", stmonth).DbType.ToString()
                    cmd.Parameters.AddWithValue("@f_year", styear).DbType.ToString()
                    cmd.Connection = conn
                    i = cmd.ExecuteNonQuery()

                End Using
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
            conn.Close()
            If (i > 0) Then
                MessageBox.Show("New Product has been added Successfully", "Success Save Data", MessageBoxButtons.OK, MessageBoxIcon.Information)
                ShowData()
            End If

        End If