Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim da As IDbDataAdapter
da = New SqlDataAdapter("SELECT * FROM Customers", SqlConnection1) 'Per brevità...
Dim ds As New DataSet
Try
da.Fill(ds)
MessageBox.Show("Tabelle: " + ds.Tables.Count.ToString)
MessageBox.Show("Nome di default: " + ds.Tables(0).TableName)
MessageBox.Show("Righe nella tabella: " + ds.Tables(0).Rows.Count.ToString)
Finally
If Not SqlConnection1.State = ConnectionState.Closed Then SqlConnection1.Close()
End Try
End Sub
A me và...

Magari non ho capito cosa intendi...