ConnectionOpen()
Dim cmd As New OracleCommand
Dim dr As OracleDataReader
dim str as String 
Dim sql= "SELECT * FROM TBL_TABLE where ID = '1'"
cmd = New OracleCommand(sql, conn)
dr = cmd.ExecuteReader
If dr.HasRows Then
       dr.Read()
       str = dr("NAME").tostring
End If
ConnectionClose()