LabelTable
Dim intX as Integer For intX = 0 to rs.Fields.Count-1 label1(intX).Caption = rs.Fields(intX).Name text1(intX).MaxLength = rs.Fields(intX).Size Next intX
Dim intX as Integer
For intX = 0 to rs.Fields.Count-1
label1(intX).Caption = rs.Fields(intX).Name
text1(intX).MaxLength = rs.Fields(intX).Size
Next intX
(labeltable.html)- by Paolo Puglisi - Modifica del 25/3/2019