Excelente, funciona a la perfeccion, ya vi porque no me salia, Gracias.
Saludos
Saludos

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú 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