Visual Basic - Como hacer una validacion de fechas

Hola necesito saber como puedo hacer que me valide una fecha con la fecha de hoy para con esto hacer una serie de reportes de los que ya estan vencidos de la fecha de hoy y los que no el codigo que tengo es el siguiente pero no me valida las fechas:
Do
TxtFecha = DataVigente.Recordset("Fecha de Vencimiento")
If TxtFecha > Date Then
DataCarteravencida.Recordset.FindFirst "Folio='" & DataVigente.Recordset.Fields("Folio").Value & "'"
If DataCarteravencida.Recordset.NoMatch Then
DataCarteravencida.Recordset.AddNew
DataCarteravencida.Recordset("Folio") = DataVigente.Recordset("Folio")
DataCarteravencida.Recordset("Nombre") = DataVigente.Recordset("Nombre")
DataCarteravencida.Recordset("Monto Aprobado") = DataVigente.Recordset("Monto del Crédito")
DataCarteravencida.Recordset("Fecha de Vencimiento") = DataVigente.Recordset("Fecha de Vencimiento")
DataCarteravencida.Recordset("Tipo de Apuro") = DataVigente.Recordset("Concepto del Crédito")
DataCarteravencida.Recordset.Update
DataVigente.Recordset.MoveNext
End If
Else
DataVigente.Recordset.MoveNext
End If
Loop
CR1.ReportFileName = "C:\ERICKA\vencido.rpt"
CR1.Action = 0

Utiliza el DtPicker y listo

okas pero serias tan amable de decirme kual es el control dtpicker ya ke no lo encuentro porfas