Directly set maxlength on Form object from database

In darpa project,

SQL = "select syscolumns.name as colname,syscolumns.length as collen, "
SQL  = SQL  & "systypes.name as typename from syscolumns, systypes "
SQL  = SQL  & " where object_name(syscolumns.id) = 'survey'"
SQL  = SQL  & " and syscolumns.xtype = systypes.xtype"

SET qs = Conn.Execute(SQL)
ind = 1
If not qs.EOF Then
 Do While NOT qs.EOF
 Execute( qs("colname") & "=" & qs("collen"))

 ind = ind + 1
 qs.MoveNext
 Loop
End If
qs.Close
9/03/2006 09:52:00 PM