при загрузке DataGrid меняю ширину столбцов и сохраняю информацию. При следующей загрузке информация о ширине столбцов загружается

Sub DBGridLayout(Operation As String)

Dim lWidth As Long
Dim clm As Columns
Dim lDefWidth As Long

lDefWidth = dg.DefColWidth
For Each clm In dg.Columns
With clm
Select Case LCase(Operation)
Case "save"
lWidth = dg.Width
SaveSetting App.Title, _
"Cols", CStr(.ColIndex), lWidth
Case "load"
lWidth = GetSetting(App.Title, _
"Cols", CStr(.ColIndex), _
lDefWidth)
dg.Width = lWidth
End Select
End With
Next clm
End Sub

Private Sub Form_Load()
DBGridLayout "Load"
End Sub

Private Sub Form_Unload(Cancel As Integer)
DBGridLayout "Save"
End Sub

CStr(.ColIndex) здесь выдает ошибку немогу разобраться почему. Прошу вашей помощи