problemas con trabajar con consulta

[Montu]

Hola Amigos,

A ver si me podéis ayudar:

Quiero poder trabajar con los datos de consulta,
así que primero hago la conexión:

Dim cadenaconexion As String = "ruta bbdd"
Dim miconexion As New SqlConnection
Dim miadaptador As New SqlDataAdapter("select max (id) from hospital", miconexion)
Dim midataset As New DataSet
Dim midatarow As DataRow
Dim micomando As New SqlCommandBuilder(miadaptador)


miconexion.ConnectionString = cadenaconexion 'lo ke contiene cadena conexion(ruta bbdd, lo manda a mi conexion)
miconexion.Open() ' abres la conexion
Dim micomando = New SqlCommandBuilder(miadaptador)
miadaptador.Fill(midataset, "tablainicial")
aaa = midataset.ToString
MsgBox(aaa) -- imprimo por pantalla para ver el resultado
miconexion.Close()

No se si lo estoy haciendo bien :(

No se muy bien como poder hacer para trabajar con los datos de una consulta