你出生日期可以直接提取日期格式的,如
http://www.foxtable.com/webhelp/scr/0320.htm
你出生日期列存放的数据是怎样的?2017-07-13?直接转即可
Dim Cdt As Date = dr("出生日期")