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()
