muchas gracias ramirez tu ayuda me fue muy util ya lo termine aca paso el codigo por si alguien tiene el mismo problema mio
Dim command As SqlCommand
Dim adapter As New SqlDataAdapter
Dim ds As New DataSet
cnn.Open()
command = New SqlCommand(obj, cnn)
adapter.SelectCommand = command
adapter.Fill(ds)
adapter.Dispose()
command.Dispose()
Dim texto As String
texto = ""
Dim tabla As DataTable
For Each tabla In ds.Tables
texto = texto + " -- " + tabla.Rows(0).Item(0).ToString()
Next tabla
MsgBox(texto)