'Add PackageBooking info in PackageBooking table in database
    Private Sub RecordBooking(ByVal PackageID As String)

        Dim a As New Common
        Dim con As New SqlConnection
        con = a.GetConnect()

        Dim str As String
        Dim SqlDataAdapter1 As New SqlDataAdapter

        Try
            str = "INSERT INTO PackageBooking(PackageID, TotalAmt, Username, CCNumber, CCType, CCValidationNumber, CCHolderName, BookDate, BookTime, CCExpMonth, CCExpYear) Values " _
                    & " (@PackageID, @TotalAmt, @Username, @CCNumber, @CCType, @CCValidationNumber, @CCHolderName, @BookDate, @BookTime, @CCExpMonth, @CCExpYear)"

            Dim InsCom As New SqlCommand(str, con)
            SqlDataAdapter1.InsertCommand = InsCom

            SqlDataAdapter1.InsertCommand.Parameters.Add(New _
              SqlParameter("@PackageID", SqlDbType.Int, 4))
            SqlDataAdapter1.InsertCommand.Parameters.Add(New _
              SqlParameter("@TotalAmt", SqlDbType.Money, 8))

            SqlDataAdapter1.InsertCommand.Parameters.Add(New _
              SqlParameter("@Username", SqlDbType.VarChar, 10))
            SqlDataAdapter1.InsertCommand.Parameters.Add(New _
              SqlParameter("@CCNumber", SqlDbType.VarChar, 50))

            SqlDataAdapter1.InsertCommand.Parameters.Add(New _
              SqlParameter("@CCType", SqlDbType.VarChar, 50))
            SqlDataAdapter1.InsertCommand.Parameters.Add(New _
              SqlParameter("@CCValidationNumber", SqlDbType.VarChar, 50))
            SqlDataAdapter1.InsertCommand.Parameters.Add(New _
              SqlParameter("@CCHolderName", SqlDbType.VarChar, 50))

            SqlDataAdapter1.InsertCommand.Parameters.Add(New _
              SqlParameter("@BookDate", SqlDbType.DateTime, 8))
            SqlDataAdapter1.InsertCommand.Parameters.Add(New _
              SqlParameter("@BookTime", SqlDbType.DateTime, 8))

            SqlDataAdapter1.InsertCommand.Parameters.Add(New _
              SqlParameter("@CCExpMonth", SqlDbType.VarChar, 8))
            SqlDataAdapter1.InsertCommand.Parameters.Add(New _
              SqlParameter("@CCExpYear", SqlDbType.DateTime, 8))

            SqlDataAdapter1.InsertCommand.Parameters("@PackageID").Value = lblPackage_ID.Text
            SqlDataAdapter1.InsertCommand.Parameters("@TotalAmt").Value = txtTotalAmt.Text
            SqlDataAdapter1.InsertCommand.Parameters("@Username").Value = lblUsername.Text
            SqlDataAdapter1.InsertCommand.Parameters("@CCNumber").Value = txtCCNumber.Text

            SqlDataAdapter1.InsertCommand.Parameters("@CCType").Value = ddlCCType.SelectedValue
            SqlDataAdapter1.InsertCommand.Parameters("@CCValidationNumber").Value = txtCCValNumber.Text
            SqlDataAdapter1.InsertCommand.Parameters("@CCHolderName").Value = txtCCHolderName.Text
            SqlDataAdapter1.InsertCommand.Parameters("@BookDate").Value = DateTime.Today.Date

            SqlDataAdapter1.InsertCommand.Parameters("@BookTime").Value = DateTime.Today.TimeOfDay
            SqlDataAdapter1.InsertCommand.Parameters("@CCExpMonth").Value = ddlCCExpMonth.SelectedValue
            SqlDataAdapter1.InsertCommand.Parameters("@CCExpYear").Value = txtCCExpYear.Text

            con.Open()

            SqlDataAdapter1.InsertCommand.ExecuteNonQuery()

        Catch ex As Exception
            Dim b As String
            b = ex.Message

        End Try
        con.Close()
        RecordNumberBooked(lblPackage_ID.Text)
        tblBookingSuccess.Visible = True

    End Sub