Help with saving program

Hello i need help.
I am making a sort of "database"
I whanna save 2 image and 2 text.
And i whant to change name then i whanna have many places u know so that i cas save one named "anton" and it got a pic of my head a pic of my fingerprint and then 2 text. Then i can save a new person and it will get to a new box thet is on the side of the first. You guys understand?
Im sorry im swedish so i suck on english.
Ask if u dont understand.

 

Ok,
(Uses vb picturebox and textbox control)
Create 2 .dat file's in the app's path 1 named dat1 2 named dat2
Create 2 empty pic's in the app's path named what ever you want.
text1 is your first text
text2 is your second text

Code:

Private Sub Form_Load()
'text1
Open App.Path & "\dat1.dat" For Input As #1
    Do While Not EOF(1)
        If Text1.Text = "" Then
            Line Input #1, inputline
            Text1.Text = inputline
        Else
            Line Input #1, inputline
            Text1.Text = Text1.Text & vbCrLf & inputline
        End If
    Loop
Close #1
'text2
Open App.Path & "\dat2.dat" For Input As #1
    Do While Not EOF(1)
        If Text2.Text = "" Then
            Line Input #1, inputline
            Text2.Text = inputline
        Else
            Line Input #1, inputline
            Text2.Text = Text2.Text & vbCrLf & inputline
        End If
    Loop
Close #1
End Sub

Code:

Private Sub Form_Unload(Cancel As Integer)
'text1
Open App.Path & "\dat1.dat" For Output As #1
    Print #1, Text1.Text
Close #1
'text2
Open App.Path & "\dat2.dat" For Output As #1
    Print #1, Text2.Text
Close #1
End Sub

The images is pretty much the same as the text but you just save it and load it as an image. In all it is pretty simple.