ayudar con visual basic 6.0

[newnovato]

amigos estoy tratando de crear un programa el cual pueda reflejar los datos que registre en una base de datos access a en listbox o en un vsflaxarray los comandos que tengo son:

Private Sub botonmodificar_Click()
Data1.Recordset.Edit
If txtNomEdit <> "" Then Data1.Recordset("Nombre").Value = txtNomEdit
If txtDirEdit <> "" Then Data1.Recordset("Direccion").Value = txtDirEdit
If txtTelEdit <> "" Then Data1.Recordset("telefono").Value = Val(txtTelEdit)
Data1.Recordset.Update
End Sub
'Refresca el control
Private Sub CmdRefresh_Click()
Data1.Refresh

End Sub

Private Sub ab_Click()
Form1.Hide
Form2.Show
End Sub

Private Sub botonsalir_Click()
End
End Sub

Private Sub CmdActualizar_Click()
On Error GoTo errSub
'Actualiza el control data
Data1.UpdateRecord
Data1.Recordset.Bookmark = Data1.Recordset.LastModified

Exit Sub
errSub:
If Err.Number = 524 Then
MsgBox "Para actualizar un registro primero agregue uno nuevo o" & _
"modifique algun registro activo", vbInformation
End If

End Sub

Private Sub CmdAgregar_Click()

If Text1 = "" Then
MsgBox "Debe ingresar un nombre para poder agregar un elemento", vbQuestion + vbOKOnly, "Datos incompletos"
'Salimos de la rutina ya que no se ha ingresado nada en el control text1
Exit Sub
End If

'Agregamos el contenido del Text1 en el control List1
List1.AddItem Text1

If txtNombre = "" Then
MsgBox "Debe ingresar un nombre para poder agregar un elemento", vbQuestion + vbOKOnly, "Datos incompletos"
'Salimos de la rutina ya que no se ha ingresado nada en el control text1
Exit Sub
End If

'Agregamos el contenido del Text1 en el control List1
List1.AddItem txtNombre




Data1.Refresh
Data1.Recordset.AddNew
txtNombre.SetFocus



End Sub

Private Sub CmdEliminar_Click()
With Data1.Recordset
'Elimina
If Data1.Recordset.RecordCount = 0 Then Exit Sub
.Delete
'Posiciona en el siguiente
.MovePrevious
If Not .EOF Then .MoveLast
End With

End Sub

Private Sub CmdRefres_Click()




End Sub

Private Sub Command5_Click()
Data1.Recordset.Edit
If txtNomEdit <> "" Then Data1.Recordset("Nombre").Value = txtNomEdit
If txtDirEdit <> "" Then Data1.Recordset("Direccion").Value = txtDirEdit
If txtTelEdit <> "" Then Data1.Recordset("telefono").Value = Val(txtTelEdit)
Data1.Recordset.Update

End Sub

Private Sub Command1_Click()
'Si la lista no está vacía entonces podemos eliminar
If List1.ListIndex <> -1 Then
'Eliminamos el elemento que se encuentra seleccionado
List1.RemoveItem List1.ListIndex
End If

End Sub

Private Sub Data1_Validate(Action As Integer, Save As Integer)
Select Case Action
Case vbDataActionMoveFirst
Case vbDataActionMovePrevious
Case vbDataActionMoveNext
Case vbDataActionMoveLast
Case vbDataActionAddNew
Case vbDataActionUpdate
Case vbDataActionDelete
Case vbDataActionFind
Case vbDataActionBookmark
Case vbDataActionClose
Screen.MousePointer = vbDefault
End Select
Screen.MousePointer = vbHourglass

End Sub

Private Sub Form_Load()

End Sub


ya el programa agrega los datos en la base de datos y se reflejan en el listbox como puedo hacer para que se reflejen en un vsflexarray y que al momento que yo cierre el programa y lo abra nuevamente se sigan reflejando las personas que estan registradas en la base de datos en el vsflexarray