Try This
Try
Dim dat As Date
Dim conn As New OracleConnection
Dim cmd As New OracleCommand
cmd.Connection = conn
cmd.CommandText = "select End_Date from employee whereID='01'"
cmd.CommandType = CommandType.Text
conn.Open()
Dim dr As OracleDataReader = cmd.ExecuteReader()
While dr.Read
dat = dr.GetDateTime(0)
MsgBox("Date is : " & dat.ToShortDateString)
End While
dr.Close()
Catch ex As OracleException
MsgBox("Database Error")
Finally
If conn.State = ConnectionState.Open then
conn.Close
End If
End Try
Happy Coding