getting data - sometimes redundant - good way of dealing with it?

[Edneeis]

Do you even need to save the personal data everytime? Is it going to change all the time? And if it changes then it should be updating the previous entry not adding a new one right?

You could do something like this:

Public Sub UpdatePersonalData(PersonalID as integer)
   'run a query to see if the personalID exists
    rs.open "SELECT * FROM PersonalData WHERE PersonalID=" & PersonalID,cnn,blahblahblah
   If rs.Recordcount<0 then
       'not already there add
       rs.addnew
   End if
       'already there just update
       rs.MoveFirst
       rs!PersonalData=pData
       rs.Update
End Sub