Hola,o sea primero lo guardas en el campo de la base de datos todo concatenado:
Código:
Private Sub Command1_Click()
Dim s As String, a() As String
s = Text1(0) & "," & Text1(1) & "," & Text1(2) & "," & Text1(3) & "," & Text1(4)
a = Split(s, ",")
End Sub
y despues para desconcatenarlo usas los index de los textbox para acceder tambien al indice de la matriz guardada,y asi mostrar cada dato de la matriz en su correspondiente textbox...
Código:
For i = LBound(a) To UBound(a)
Text1(i) = a(i)
Next i
saludos.