Cargar registros de una tabla de access 97 a un

Para empezar saludos y a la vez quisiera saber si me puedes ayudar con mi aplicación:
Esta aplicación es un form de vb 6.0 que esta conectado todos sustextbox a una base de datos mediante un control llamado data hasta ahí todo va bien pero en otro formulario estoy capturando registros de nombre xxxx usuarios entonces quiero que esos registro se guarden en el combobox del otro formulario pero que no solo se queden cargados en la memoria si no que cuando cierre y bueva a abrir el proyecto sigan en el combobox los registros que agregue si me pudieras ayudar ya he logrado que los registros aparezcan en el combobox pero una vez que cierro la aplicación y la vuelvo a abriri el combobox aparece en blanco, y lo que pasa es que no se utilizar sql si no que todo lo quiero hacer con el data control gracias espero y me puefdas a yudar. Estos son mis códigos espero y no te moleste tanto texto:
Formulario 1:
Private Sub acerca_Click()
Load frmAbout
frmAbout.Show
End Sub
Private Sub add_Click()
Form2.Show
End Sub
Private Sub Combo1_Change()
Dim uno, dos As String
Select Case Combo1.ListIndex
Case 0
uno = "SI"
Case 1
dos = "NO"
End Select
End Sub
Private Sub Combo2_Change()
Dim tres, cuatro, cinco, seis, siete, ocho, nueve, diez, tec As String
Select Case Combo2.ListIndex
Case 0
tres = "CASTREJON AMORES LUIS ADRIAN"
Case 1
cuatro = "HERNANDEZ ORTEGA JORGE ALEJANDRO"
Case 2
cinco = "VILLASEÑOR RODRIGUEZ ELIEZER ITAMAR"
Case 3
seis = "ELIZALDE ESCOBAR BRUNO ELIEL"
Case 4
tec = Form2.Text1.Text
End Select
End Sub
Private Sub Command1_Click()
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Command5_Click()
Data1.Recordset.AddNew
End Sub
Private Sub cont_Click()
Load Form3
Form3.Show
End Sub
Private Sub Form_Load()
Combo1.AddItem "SI"
Combo1.AddItem "NO"
Combo2.AddItem "CASTREJON AMORES LUIS ADRIAN"
Combo2.AddItem "HERNANDEZ ORTEGA JORGE ALEJANDRO"
Combo2.AddItem "VILLASEÑOR RODRIGUEZ ELIEZER ITAMAR"
Combo2.AddItem "ELIZALDE ESCOBAR BRUNO ELIEL"
Combo2.AddItem tec
End Sub
formulario dos:
Private Sub Combo1_Change()
End Sub
Private Sub Command1_Click()
Form1.Combo2.AddItem Text1.Text
Data2.Recordset.AddNew
End Sub
Private Sub Command2_Click()
Form2.Hide
End Sub
Private Sub Form_Load()
Dim uno As String
Select Case Form1.Combo2.ListIndex
Case 0
t = Text1.Text
End Select
End Sub
Private Sub Text1_Change()
Dim t As String
End Sub
Espero y esto te sirva para que me puedas aclarar mis dudas gracias.