code

 sql = " insert into [tbl_BillingRecords] ([Patient's ID], [Consultation Fee], [Medicine Fee], [X-Ray Fee], [Lab Services], [Partial Health Check Fees], [Comprehensive Health Check Fees], [Total Fee], [Amount Paid], [Change Amount]) values " &
          "('" & txtPatientIDStaffNurseBillingPage.Text & "' , '" & txtConsultationFeeStaffNurseBillingPage.Text & "'
            , '" & txtMedicineFeesStaffNurseBillingPage.Text & "' , '" & txtXRayStaffNurseBillingPage.Text & "'
            ,'" & txtLabServicesStaffNurseBillingPage.Text & "'  , '" & txtPartialHealthCheckStaffNurseBillingPage.Text & "'
            , '" & txtComprehensiveHealthCheckStaffNurseBillingPage.Text & "' , '" & txtTotalFeeStaffNurseBillingPage.Text & "'
            , '" & txtAmountPaidStaaffNurseBillingPage.Text & "' , '" & txtChangeAmountStaffNurseBillingPage.Text & "')"
        ds = New DataSet
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "tbl_BillingRecords")
        MessageBox.Show("Successfully added")