Comparar datas no VB

Galera,Estou fazendo uma comparação de datas no VB, mas não ta dando certo.Tipo:Dim Hoje As StringHoje = Format(Date, "dd/mm/yyyy")If rs1.Fields(3) < Hoje Then...end ifSe rs1.Fields(3) = 31/12/2006 e Hoje = 30/01/2007, deveria ser verdadeiro... mas ta dando falso. Acredito que está olhando o dia, 31 > 30, então FALSO. Acho que não está entendendo que é data.Como resolver ???