Ширина колонок в datagrid (vb6)

Формулировка задачи:

Привет люди!! Такой трабл:
у меня не получается установить ширину колонки в датагриде.
вот код

ShowForm( pProfile  DOCSObjects.IProfile)

   EndOfFun

     pProfile    Err.Raise vbObjectError + , , 
    
     doc_num  
    
    doc_num = pProfile.DocNumber
   
     psql  PCDSQL
    
     ssql  
    ssql =  & Str(doc_num)
    Assert False, ssql
     psql = retrieveSQL(ssql)
    
     CBool(psql  ) = True  Err.Raise vbObjectError + , , 
    
     colcnt  
    
    colcnt = psql.GetColumnCount
    
     iSysID_ord  
     iDocNum_ord  
     iChngDat_ord  
     iTypist_ord  
     iColName_ord  
     iOld_ord  
     iNew_ord  
     curcolname  
    
     i  
    
     i =   colcnt
    
        curcolname = psql.GetColumnName(i)
         UCase(curcolname) =   iSysID_ord = i:  endcycle1
         UCase(curcolname) =   iChngDat_ord = i:  endcycle1
         UCase(curcolname) =   iTypist_ord = i:  endcycle1
         UCase(curcolname) =   iColName_ord = i:  endcycle1
         UCase(curcolname) =   iOld_ord = i:  endcycle1
         UCase(curcolname) =  
            iNew_ord = i:  endcycle1
        
            Err.Raise -, ,  & curcolname
         
endcycle1:
     i
    
         pRecordset =  ADODB.Recordset
        
        pRecordset.Fields.Append , adVarChar, 
        pRecordset.Fields.Append , adVarChar, 
        pRecordset.Fields.Append , adVarChar, 
        pRecordset.Fields.Append , adVarChar, 
        pRecordset.Fields.Append , adVarChar, 
        pRecordset.Fields.Append , adVarChar, 

        pRecordset.

        pRecordset.AddNew
        pRecordset() = psql.GetColumnValue(iSysID_ord)
        pRecordset() = psql.GetColumnValue(iChngDat_ord)
        pRecordset() = psql.GetColumnValue(iTypist_ord)
        pRecordset() = psql.GetColumnValue(iColName_ord)
        pRecordset() = psql.GetColumnValue(iOld_ord)
        pRecordset() = psql.GetColumnValue(iNew_ord)
        pRecordset.Update
         psql.NextRow = False   

     .DataGrid1.DataSource = pRecordset

    .DataGrid1.Columns().Visible = False
    .DataGrid1.Columns(). = 
    .DataGrid1.Columns().Caption = 
    .DataGrid1.Columns(). =   
    .DataGrid1.Columns().Caption = 
    .DataGrid1.Columns().Caption = 
    .DataGrid1.Columns().Caption = 
    .DataGrid1.Columns().Caption = 
    
    .Caption =  & doc_num &  & pProfile.
    .Show vbModal

EndOfFun:
MsgBox  & vbCrLf &  & vbCrLf & vbCrLf & Err.Description, vbCritical, 

в строке Me.DataGrid1.Columns("CHANGE_DATE").Width = 500
вылезает ексепшн что колонка CHANGE_DATE не найдена.:(
Люди добрые, знатоки, ткните носом, почему оно не устанавливается? убираю эту строку, все работает нормально.
пасиб заранее.

Решение задачи: «Ширина колонок в datagrid (vb6)»

textual
                            Листинг программы 
                        

                            <font color="blue">Dim</font> i <font color="blue">As</font> <font color="blue">Integer</font>
    <font color="blue">Dim</font> j <font color="blue">As</font> <font color="blue">Integer</font>
    <font color="00AA00">'Установка высоты строк таблицы</font>
    j = Число_Строк
    <font color="blue">For</font> i = <font color="darkblue"><b>1</b></font> <font color="blue">To</font> j
        MSFlesGrid1.RowHeight(i) = Выстоа_Строки
    <font color="blue">Next</font> i

                        