If IsDBNull(myreader("fecha")) Then TxtDate.Text = "" Else TxtDate.Text = CDate(myreader("fecha")) End If