CODIGO PARA CARGAR UN DATAGRIDVIEW UTILIZANDO CONECCION A ORACLE CON HERRAMIENTA ORACLECONNECTION

'Funcion para cargar datagrid

Sub cargarDatagrid()
Dim connbuscar As New OracleClient.OracleConnection()

'Cadena de conneccion a Oracle
cadena = "Data Source=(DESCRIPTION=" + "(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=130.0.6.223)(PORT=1521)))" + "(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" + database + ")));" + "User Id=" + user + ";Password=" + password + ";"

connbuscar.ConnectionString = cadena

'Definiendo el Adaptador para el dataset y la coneccion
Dim Adap As OracleClient.OracleDataAdapter

'Definiendo el Dataset para almacenar en el las tablas
Dim ds As DataSet

'Definiendo el comando de coneccion y especificando que es de que tipo y su respectiva Sentencia de SQL
Dim comando As New OracleClient.OracleCommand
comando.CommandType = CommandType.Text
comando.CommandText = "SELECT * FROM CIUDADPRUEBA"

'Asignar la coneccion al Comando

comando.Connection = connbuscar
'Se llena el adapter con el query y se inicializa el dataset
Adap = New OracleClient.OracleDataAdapter(comando)
ds = New DataSet

'abrimos la conexión a oracle
connbuscar.Open()
'Se tiene el adaptador y se llena el dataset que va a tener contenido de la tabla
Adap.Fill(ds, "CIUDADPRUEBA")
'Se hace el Bind al datagrid
Me.DataGridView1.DataSource = ds.Tables.Item(0) 'se llena con los datos de la primera columna
Me.DataGridView1.Show()
connbuscar.Close()

End Sub