Public Class StaffNurseBillingPageEdit
    Dim con As New OleDb.OleDbConnection
    Dim dbProvider As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
    Dim dbSource As String = "Data Source = OCENIA_TreatmentsRecords.mdb;"

    Dim ds As New DataSet
    Dim da As OleDb.OleDbDataAdapter

    Dim sql As String
    Dim BillID As String

    Private Sub StaffNurseBillingPageEdit_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        con.ConnectionString = dbProvider & dbSource

    End Sub
    Private Sub btnUpdateStaffNurseEditPage_Click(sender As Object, e As EventArgs) Handles btnUpdateStaffNurseEditPage.Click
        BillID = txtBillIDStaffNurseEditBillingPage.Text

        da = New OleDb.OleDbDataAdapter("update [tbl_BillingRecords] set tbl_BillingRecords.[Patient's ID] = '" & txtPatientsIDStaffNurseEditBillingPage.Text & "' ,
        tbl_BillingRecords.[Patient's Name] = '" & txtPatientNameStaffNurseEditBillingPage.Text & "' ,
        [Consultatioin Fee] = '" & txtConsultationFeeStaffNurseEditBillingPage.Text & "' ,
        [Medicine Fee] = '" & txtMedicineFeeStaffNurseEditBillingPage.Text & "' ,
        [X-Ray Fee] = '" & txtXRayFeeStaffNurseEditBillingPage.Text & "' ,
        [Lab Services] = '" & txtLabServicesStaffNurseEditBillingPage.Text & "' ,
        [Partial Health Check Fee] = '" & txtPartialHealtchCheckFeeStaffNurseEditBillingPage.Text & "' ,
        [Comprehensive Health Check Fee] = '" & txtComprehensiveHealthCheckFeeStaffNurseEditBillingPage.Text & "' ,
        [Total Fee] = '" & txtTotalFeeStaffNurseEditBillingPage.Text & "' ,
        [Amount paid] = '" & txtAmountPaidStaffNurseEditBillingPage.Text & "' ,
        [Change Amount] = '" & txtChangeAmountStaffNurseEditBillingPage.Text & "'
        where [Bill ID] = " & BillID, con)
        ds = New DataSet
        da.Fill(ds, "tbl_BillingRecords")
        MessageBox.Show("Successfully updated")
        Me.Close()

    End Sub




End Class