Несовпадение типов - VB (61328)

Формулировка задачи:

Сделал простенький проект шахматных часов, но захотел осуществить идею смены времени партии через меню...например нажал в меню на -(Партия 5 минут) и отсчет времени начинался с 5 минут...а попал в ступор каким типом переменных мне задать #2:00:00 AM# в этой строке??

Perviy_igrok.Text = DateAdd("s", b, #2:00:00 AM#)

Пробовал и string и date все равно пишет несовпадение типов....скидываю проект, может кому не лень будет открыть и глянуть.

Решение задачи: «Несовпадение типов»

textual
                            Листинг программы 
                        

                            Private Sub Form_Load()
 Г‘ГІГ®ГїГІ_Г®ГЎГ*_ГІГ*Г©Г¬ГҐГ°Г*
 Г‘ГЎГ°Г®Г±_Г·Г*Г±Г®Гў
 k = 0
 a = -1
 b = -1
 ГўГ°ГҐГ¬Гї_ГЇГ*Г°ГІГЁГЁ = CDate("00:05:00")  ' вот эту
End Sub
                        