SELECT tbl.name AS TableName, tbl.xtype AS TableType, col.name AS FieldName, 
      tt.name AS FieldType, col.length AS FieldLength
FROM dbo.syscolumns col INNER JOIN
      dbo.sysobjects tbl ON col.id = tbl.id INNER JOIN
      dbo.systypes tt ON col.xtype = tt.xtype
WHERE (tbl.xtype = 'u') AND (tt.name <> N'sysname')