VB中DataGrid列如何自动适应数据宽度

[hua321154]

在VB6.0中我在一个窗体上加入一个DataGrid控件，但是在从数据库中读入数据的时候，列的宽度是固定的，有些数据长度很短列宽度有余，而有些数据宽度很长，列却不能完全显示。我想要列能自动适应数据宽度，数据短的列就短点，数据长的就长点。
哪位高手能够解决这个问题，请指教，谢谢！！

[vansoft]

这个控件比较麻烦，我用listview报表式，自带的功能。

[lsftest]

先得到字段最长是多少再修改dadagrid的列宽。
得到某字段最长的长度：
SELECT Max(Len(RECORDS.GIVENNAME)) AS 表达式1
FROM RECORDS
WHERE (((RECORDS.GIVENNAME) Like '陈*'));