upadate label TimeEnd and labelTime Start

[JuAn2226]

Hi, can someone help me with the coding. I want to update the label TimeStart and label TmeEnd every 5 min. Can someone show how to do it. In this pogrom the label TimeStart only display first time when the form load but the label TimeStart not update with new time when msgbox revoke same goes to label EndTime. plz help me.

Private Sub Timer2_Timer()
On Error Resume Next
 
Dim myvari As Integer
Dim StartTime As Integer
Dim StopTime As Integer
 
Dim Store As Integer
Dim timeGap As Integer
Dim avgSpeed As Long
Dim NoOfCars As Integer
 
 
If Timer2.Enabled = True Then
 
    GraphTimeIncrement = GraphTimeIncrement + 1
 
   If GraphTimeIncrement >= 1 Then
 
        GraphStopTime = DatePart("n", Now())
        myvari = MsgBox("start time " & GraphStartTime & " Stop Time " & GraphStopTime, vbOKOnly)
        frmDisplay.Show
        lblTimeEnd.Caption = Format(Now, "hh:mm:ss")
        frmDisplay.txtTimeEnd.Text = Format(Now, "hh:mm:ss")
        If myvari = vbOK Then
            frmMain.Refresh
            Timer1.Enabled = True
        End If
 
 
DataRs.Open strSql, DE.Conn, adOpenForwardOnly, adLockReadOnly
 
        If DataRs.RecordCount > 0 Then
            'NoOfCars = DataRs(0)
            'avgSpeed = DataRs(1)
        End If
 
        DataRs.Close
 
        strSql = "INSERT INTO RESULTS (TimeStart, TimeEnd, AverageSpeed, NoOfCars, TimeGap) " & _
                    " VALUES ('" & lblTimeStart.Caption & "','" & lblTimeEnd.Caption & "','" & lblAverage & "'," & _
                    " '" & lblNum.Caption & "'," & timeGap & ")"
 
                    DE.Conn.Execute strSql
 
        GraphTimeIncrement = 0
        GraphStartTime = DatePart("n", Now())
        GraphStopTime = 0
    Else
        Timer2.Enabled = True
    End If
 End If
End Sub