Well the sub I have wrote doesn't exactly give much information of what I am doing. Well if you make 100 changes to the file. On the close up the application should delete the whole database and then rewrite all the information in the variables.
I used
Sequential access file.
SUB
==============================

Public Sub Updatation()
Dim I As Double
Dim D As Double
D = frmpd.cboname.ListCount
Kill (App.Path & "\database.pdd")
Open App.Path & "\database.pdd" For Append As #1
For I = 1 To D
Write #1, People(I).strName, People(I).strPhone, People(I).strFax, People(I).strEmail, People(I).strAddress, People(I).strPager, People(I).strICQ, Business(I).strCompany, Business(I).strTitle, Business(I).strPhone, Business(I).strPager, Business(I).strOffice, Business(I).strDepartment, Business(I).strState, Business(I).strZip, Business(I).strCountry, Business(I).strAddress, Business(I).strMobile, Business(I).strComments
Next
frmgoodbye.Show
Close #1
End Sub
=================================
But the output of this is kind of messed up.