VB中datagrid里面的内容显示不完问题

datagrid显示数据库内容时显示不完，每次都要手动拖动他的列宽来调整，是他显示完，我该怎么弄让他自动调整呢

DataGrid控件
该数据识别的DataGrid控件看起来与Grid控件类似。但是，您可以设置DataGrid控件的DataSource属性为一个Data控件，以自动填充该控件并且从Data控件的Recordset对象自动设置其列标头。这个DataGrid控件实际上是一个固定的列集合，每一列的行数都是不确定的。
DataGrid 控件的每一个单元格都可以包含文本值，但不能链接或内嵌对象。可以在代码中指定当前单元格，或者用户可以使用鼠标或箭头键在运行时改变它。通过在单元格中键入或编程的方式，单元格可以交互地编辑。单元格能够被单独地选定或按照行来选定。
如果一个单元格的文本太长，以致于不能在单元格中全部显示，则文本将在同一单元格内折行到下一行。要显示折行的文本，必须增加单元格的Column对象的Width属性和／或DataGrid控件的RowHeight属性。在设计时，可以通过调节列来交互地改变列宽度，或在Column对象的属性页中改变列宽度。
使用DataGrid控件的Columns集合的Count属性和Recordset对象的RecordCount属性，可以决定控件中行和列的数目。DataGrid控件的可包含的行数取决于系统的资源，而列数最多可达32,767列。
选择一个单元格，则ColIndex属性被设置，也就是选择了DataGrid对象的Columns集合中的一个Column对象。Column对象的Text和Value属性引用当前单元格的内容。使用Bookmark属性能够访问当前行的数据，它能够提供对下一级Recordset对象中记录的访问。DataGrid控件中的每一列都有自己的字体、边框、自动换行和另外一些与其他列无关的能够被设置的属性。在设计时，您可以设置列宽和行高，并且建立对用户不可见的列。您还能阻止用户在运行时改变格式。
属性
DataGrid, Boomark属性（DataGrid），AddNewMode属性，AllowArrows属性，ApproxCount属性，CurrentCellModified属性，CurrentCellVisible属性，AllowAddNew属性，AllowDelete属性，AllowRowSizing属性，AllowUpdate属性，ColumnHeaders属性，DataChanged属性（DBGrid），BoundText属性，Column属性，DataFormat属性，DataBindings属性，HelpContextID属性，Name属性，Parent属性，Font属性，Container属性，Object属性，ToolTipText属性，Text属性（ActiveX控件），RighotToLeft属性（ActiveX控件），Appearance属性（ActiveX控件），BackColor, ForeColor属性（ActiveX控件），BorderStyle属性（ActiveX控件），Caption属性（ActiveX控件）。
事件
Validate事件，DblClick事件。
方法
AboutBox方法，Refresh方法，SetFocus方法。

首先：select * from user

执行完命令后。

   with datagrid     .refresh     .rows = 2     .textmatrix(0, 0) = "序号"     .textmatrix(0, 1) = "用户名"     .textmatrix(0, 2) = "密码     .textmatrix(0, 3) = "权限     do while not rs.eof     .rows = .rows + 1     .textmatrix(.rows - 2, 0 = temprecordset.fields(0)     .textmatrix(.rows - 2, 1) = temprecordset.fields(1)     .textmatrix(.rows - 2, 2) = temprecordset.fields(2)     .textmatrix(.rows - 2, 3) = temprecordset.fields(3)     rs.movenext     loop          end with