请教:实时保存数据的问题~

'在采集数据时想实现,采回来马上就以.txt形式保存下来,以免数据因断电丢失
'在别的地方已经设置timer.Enabled和timer.Interval属性,且Interval比采集延迟1ms,但还是保存不了,请教为什么??感激不尽!!!!!!!!!!!
Private Sub Timer2_Timer() 
    Dim nFile As Integer
    On Error GoTo ErrHandler   'intDataLine 为公共变量,strMyFilenam也是公共变量
    intDataLine = intDataLine + 1    '行数递增,在form_LOAD事件中赋初值intDataLine=0
    nFile = FreeFile
    Open App.Path & "\" & strMyFilenam For Append Shared As #nFile
    With Data                 'Data是MSFlexGrid控件,每行6个数据已经写入
      Print #nFile, Spc(8), .TextMatrix(DataLine, 0), Spc(8), _
                            .TextMatrix(DataLine, 1), Spc(8), _
                            .TextMatrix(DataLine, 2), Spc(8), _
                            .TextMatrix(DataLine, 3), Spc(8), _
                            .TextMatrix(DataLine, 4), Spc(8), _
                            .TextMatrix(DataLine, 5)
    End With
    Close #nFile
ErrHandler:
       Exit Sub
    If DataLine = Data.Rows Then Timer2.Enabled = False
end sub