Select Object_Name(a.id) as TableName,a.Name as FieldName,
b.Name as FieldType,a.Length as Length from syscolumns as a,systypes as b
where objectproperty(a.id,'IsUserTable')=1 and a.xtype = b.xtype and
Object_Name(a.id)<>'dtproperties' order by TableName,FieldName