[5分]关于列宽的问题

我将列号宽度设置为0，后面通过查询后，我又将其设置为1cm。可是列宽不能还原过来，我想可能是我没刷新窗体的缘故。可是如果采用刷新的话，将显示原来的数据，而不是查询后的数据，这个问题如何解决，请老师帮忙指导下，谢谢！
我的列宽变化的代码如下：
其中binname(i)是存放列对应标签的名称   
Dim bb As Integer
    bb = 61
    For i = 1 To 50
        bb = bb + 1
        On Error Resume Next
        If binname(i) <> "" Then
            Me("label" & bb).Caption = binname(i)
        Me("pbin" & i).ColumnWidth = 1000
        Else
        Me("pbin" & i).ColumnWidth = 0
        End If
    Next
请老师帮忙指导下，谢谢！