主题：提醒窗体

有一个客户资料表中的“出生日期”字段来源是“身份证号码”提取出来的，所以"出生日期"字段是字符型，想用次字段做提醒依据但转换日期型出错看看那错了？

Dim  ids As String
Dim n As Integer = 10  '未来天数,含今天,所以实际是未来7天
For Each dr As DataRow In DataTables("客户资料").DataRows
    Dim  Cdt As Date = Format(CDate(dr("出生日期")),"yyyyMMdd")
    Dim  dt1 As  New  Date(Date.Today.Year,Cdt.Month,Cdt.Day)
    Dim  dt2 As   New  Date(Date.Today.AddDays(n).Year,Cdt.Month,Cdt.Day)
    If (dt1 >=  Date.Today AndAlso  dt1 <  Date.Today.AddDays(n)) OrElse (dt2 >=  Date.Today AndAlso  dt2 <  Date.Today.AddDays(n)) Then
        ids =  ids  &  ","  &  dr("_Identify")
    End If
Next
If  ids >  "" Then
    ids =  ids.Trim(",")
    Tables("客户资料").filter =  "[_Identify] In (" & ids &")"
End If