public Function payCourse()
Dim sd As DataSet1TableAdapters.StudentPaymentTableAdapter = New DataSet1TableAdapters.StudentPaymentTableAdapter
        Dim dsPayCourse As DataSet1.StudentPaymentDataTable = New DataSet1.StudentPaymentDataTable
        Dim connection = sd.Connection
        Dim transaction As SqlTransaction
        Dim studentRow As DataRow = dsPayCourse.NewRow
        studentRow.Item("amount") = amount
        studentRow.Item("date") = payDate
        studentRow.Item("studentID") = studentID
        studentRow.Item("courseFeesID") = courseFeesID
        studentRow.Item("paymentMethodID") = paymentMethodID
        dsPayCourse.AddStudentPaymentRow(studentRow)
        Dim count As Integer = dsPayCourse.Count
        connection.Open()
        transaction = connection.BeginTransaction(IsolationLevel.Serializable)
        sd.Adapter.UpdateCommand.Transaction = transaction
        sd.Adapter.InsertCommand.Transaction = transaction
        Try
            sd.Adapter.Update(dsPayCourse)
            dsPayCourse.AcceptChanges()
            transaction.Commit()
        Catch ex As Exception
            transaction.Rollback()
            Console.WriteLine(ex.Message)
        Finally
            connection.Close()
        End Try
End Function