Dato i Vb6 igen

Hej alesammen:
hvorfor virker det:
'*************
Form1.Adodc1.CommandType = adCmdText
Form1.Adodc1.RecordSource = "select * from betaling where dato >= " _
& "(dateserial(2002, 3, 9))  +  (timeserial(15, 19, 37))"
Form1.Adodc1.Refresh
'*****************
og ikke der her:
'***************
Dim VarKasAfst As Date
VarKasAfst = Text1
Dag = Mid(VarKasAfst, 1, 2)
Mån = Mid(VarKasAfst, 4, 2)
År = Mid(VarKasAfst, 7, 4)
Tim = Mid(VarKasAfst, 12, 2)
Min = Mid(VarKasAfst, 15, 2)
Sek = Mid(VarKasAfst, 18, 2)
  Form1.Adodc1.CommandType = adCmdText
Form1.Adodc1.RecordSource = "select * from betaling where dato >= " _
& "#" & (DateSerial(År, Mån, Dag)) + (TimeSerial(Tim, Min, Sek)) & "#" _
& " order by Dato"
Form1.Adodc1.Refresh
Tak
Enric
Er du der ud Benny???