you have declared
Dim db As New OleDb.OleDbCommand("select * from PERSONAL_DATA where F_NO =" & Val(vl), cn)
and later on you are reading same
db = rdr.Item("BIRTH_DATE")
how this can be possible...so chage it to
dim dt as Date= rdr.Item("BIRTH_DATE")