Dim objDs As New DataSet()
Dim objDa As New System.Data.OleDb.OleDbDataAdapter()
Dim objRow As System.Data.DataRow
Dim objTable As System.Data.DataTable
Dim objColumn As System.Data.DataColumn
objDa.Fill(objDs, rs, "sysdatabases")
Console.WriteLine("There are " & objDs.Tables(0).Rows.Count.ToString & " total databases.")
Console.ReadLine()
For Each objTable In objDs.Tables
Console.WriteLine(objTable.TableName)
For Each objColumn In objTable.Columns
Console.WriteLine(objColumn.ColumnName)
Next
Next
For Each objRow In objDs.Tables(0).Rows
Console.WriteLine(objRow("name").ToString)
Next
'Like Setting to Nothing
objDs.Dispose()
objDa.Dispose()
Catch ex As Exception
MsgBox(ex.Message)
Finally
If cn.State = System.Data.ConnectionState.Open Then cn.Close()
rs = Nothing
cn = Nothing
End Try
End Sub
End Class