Dim n As Long
Dim x As String
x = ""
For n = 0 To rs.Fields.Count - 1
x = x & Format(Str(n + 1), "00") & " - " & rs.Fields(n).Name & Chr(10)
Next
MsgBox (x)
__________________
José María Movilla Cuadrado
______________________
Entonces debieras haber hecho la pregunta en el foro de VB 2005... Pero, bueno; eso es lo de menos, porque ya te la paso yo a ese foro. Yo no puedo ayudarte, porque estoy tratando de iniciarme en .NET; pero no tardarás en encontrar a quién te ayude. Espero...
__________________
José María Movilla Cuadrado
______________________