Visual Basic - record

tengo 2 formularios en en form1 cargo datos en textbox y en el form2 recibo en el listview la carga del primer form1.

pero necesito que cuando se carge el form2 se queden guardados los datos del form1 me explico mejor

comn este codigo :

Private Sub cmdguardar_Click()
Dim subelemento As ListItem

'Verifica si la caja esta vacia.'
If Len(Trim(txtname.Text)) = 0 Then
MsgBox ("please you must introduce the name")
'Hace que la caja reciba el enfoque'
txtname.SetFocus

ElseIf Len(Trim(txtlastname.Text)) = 0 Then
MsgBox ("please you must introduce the lastname")
txtlastname.SetFocus

ElseIf Len(Trim(txtphone.Text)) = 0 Then
MsgBox ("please you must introduce the phone")
txtphone.SetFocus

Else

Open "J:\Christiam\VB\Project\Project.dat" For Append As #1
Print #1, txtname.Text & ";" & txtlastname.Text & ";" & txtphone
Close #1

Set subelemento = Form3.ListView1.ListItems.Add(, , txtname.Text)
subelemento.SubItems(1) = txtlastname.Text
subelemento.SubItems(2) = txtphone.Text

'Clear cajas de textos'
txtname.Text = ""
txtlastname.Text = ""
txtphone.Text = ""

txtname.SetFocus
MsgBox ("El nuevo contacto ha sido agregado")
End If
End Sub

lo que pasa con este codigo es que cdo entro en el listview me aparecen los datos pero cuando lo cierro y lo abro nuevamente no se guardan por ende necesitos verlos permanente en el listview desde ya garacias.

Si aun no tienes un módulo deberiás agregarlo a tu proyecto, y ahi en ese módulo declarar variables a nivel global, de forma que los valores que te interesen puedes guardarlos, y recuperarlos despues en cualquieras de los formularios del proyecto.

- Proyecto -> Agregar Módulo

Una vez creado el módulo, en "General" puedes definir las variables necesarias
y crear tambien procedimientos a nivel global

' **** ejemplos **********
Public conn As ADODB.Connection
Public StrNombre as String
Public StrApellidos as String

'**************************************************

Al introducir o seleccionar datos de un Form, guarda los datos en una variable,

StrNombre = txtnombre.text
StrApellidos = txtLastName.text

y luego , la puedes recuperar.

txtnombre.text = StrNombre
txtlastname.text= StrApellidos