Это собтие при открытии формы ?
form_load3()

Katushaподскажите плиз, почему у меня перестал заполняться грид, в коде ничего не меняла...

Private Sub form_load3()
With HG1
.Rows = 10
.Cols = 4
.FixedCols = 0
.FixedRows = 1
.SelectionMode = flexSelectionFree
.AllowUserResizing = flexResizeBoth
.ScrollBars = flexScrollBarVertical
.HighLight = flexHighlightAlways
.FocusRect = flexFocusLight
.RowHeight(0) = 1600
.ColWidth(0) = 900
.ColWidth(1) = 900
.ColWidth(2) = 900
.ColWidth(3) = 900
.WordWrap = True
.AllowUserResizing = flexResizeBoth
.TextMatrix(0, 0) = "3a 2006 êàëåíäàðíûé ãîä (èñòåêøèå êàëåíäàðíûå ãîäû)"
.TextMatrix(0, 1) = "Êîä îáúåêòà íåäâèæèìîñòè"
.TextMatrix(0, 2) = "Íàèìåíîâàíèå îáúåêòà íåäâèæèìîñòè"
.TextMatrix(0, 3) = "Äàòà ââîäà îáúåêòà íåäâèæèìîñòè â ýêñïëóàòàöèþ äëÿ èñ÷èñëåíèÿ àìîðòèçàöèè (÷èñëî, ìåñÿö, ãîä)"
End Sub

End With
перед end sub