如何控制datagrid每列的宽度

[wuhailing5201]

请问如何使用代码控制所显示的datagrid每列的宽度

[tztz520]

datagrid.Columns(1).Width = 800

[123BMW666]

Me.DataGrid1.Columns(0).Width = 200

[wuhailing5201]

我这样设置了，可是没效果啊，代码如下
Private Sub Form_Load()
'DataGrid1.DefColWidth = 1300

On Error GoTo err
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
'无密码的连接方式
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\report.mdb;Persist Security Info=False"
cn.open
rs.CursorLocation = adUseClient '设置客户端游标
rs.open "select * from report1", cn, 3, 2
Set DataGrid1.DataSource = rs '把记录集的记录显示到DataGrid1
Exit Sub
err:
MsgBox err.Description

DataGrid1.Columns(1).Width = 800

End Sub

[tztz520]

????????????
你把代码写在错误处理模块内干什么呢.

写在 Set DataGrid1.DataSource = rs 后面.