Dim i%, hFile

  hFile = FreeFile
 
  Open "C:\Datos.txt" For Append As #1
 
  For i = 0 To Text1.Count - 1
    Print #1, , Text1(i).Text & " " & Text2(i).Text
  Next
 
  Close #1

'En el archivo me escribe asi :

        1 AAAA
        2 BBBB
        3 .....

for i=0 to No. de controles que tienes
    Picture.item(i).BackColor = &H8000000E
    Label.item(i).BackColor = &H8000000E
    Label.item(i).ForeColor = &H0&
    Picture.item(i).BorderStyle = 0
next 

textbox.text=recordset!nombre_campo_fecha

 
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Form_Load()
File1.Pattern = "*.jpg;*.bmp"
End Sub