никалаи

Dim a As Date
Dim b As Date
Dim c As Date

Private Sub Timer1_Timer()
a = Time
b = "14:25:26"
c = (b - a)
Label1.Caption = a
Label2.Caption = b
Label3.Caption = c
End Sub


должден начатся обратный отсчет времени с

Dim time1 As date
Dim time2 As Date
Dim totaltime As Date
Dim str As String


str = "SELECT Lessons.time FROM Lessons WHERE Lessons.id =" & i & ""
Data1.RecordSource = str
Data1.Refresh


time1 = Time
time2 = Text1.Text
totaltime = time2 - time1
Text5.Text = totaltime

как преобразовать формат стринг в формат времени? потому что так нельзя потому time2 = Text1.Text