FieldSchema returns a recordset whose 5th field is the length (for varchar - fieldtype in field 2 = “5”).
dim rs as RecordSet
rs= db.FieldSchema("table1")
while not rs.EOF
listbox1.AddRow rs.IdxField(1).StringValue, rs.IdxField(2).StringValue, rs.IdxField(5).StringValue
rs.MoveNext
wend