如何用VB改变ACCESS中表的列宽

Question

程序如下Private Sub Command1_Click()
    Dim cat As ADOX.Catalog
    Dim idx As ADOX.Index
    Dim tb As Table
    Dim iKey As Key
    Dim strDB As String
    Dim myDefaultValue
      
'创建access数据库
    strDB = "TestData"               '指定数据库名称
    If Dir("D:\desktop\access_090131\data" & "\" & strDB & ".mdb") <> "" Then                        
                    Kill "D:\desktop\access_090131\data" & "\" & strDB & ".mdb"
                End If    Set cat = New ADOX.Catalog
    
    cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & "D:\desktop\access_090131\data" & "\" & strDB & ".mdb;" '连接数据库
    Set cat = New ADOX.Catalog
    cat.ActiveConnection = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & "D:\desktop\access_090131\data" & "\" & strDB & ".mdb;" '创建新数据库中的表 tb_info并添加字段（id,iName,iDub）
    Set tb = New Table
    tb.Name = "tb_info"
    tb.Columns.Append "id", adInteger
    tb.Columns.Append "iName", adVarWChar, 50
    tb.Columns.Append "iDub", adDouble
    cat.Tables.Append tb        
End Sub
问题是为什么表 tb_info中字段（列）都是一个固定的宽度，以至于较长的字段名无法显示，有什么方法可以在程序中改变各列的宽度，多谢！