■

さらにデータベースネタ。
今度はちゃんとconnectionオブジェクトを使ってます。
コンパイラオプションは前回と同じ。
にしても汚いコードだなあ（泣）

Option Explicit

Option Strict
Imports System

Imports System.Data

Imports System.Data.SqlClient

Imports System.Xml
Module fugo

    Public Sub Main(cmdArgs() As String)

        Dim connection As New SqlConnection("server=localhost;uid=sa;pwd=***;database=pubs")
        connection.open()
        Dim adapter As SqlDataAdapter = New SqlDataAdapter("SELECT * FROM titles", connection)

        Dim dataset AS New DataSet()

        adapter.Fill(dataset, "title_in_Adapter")
        connection.close()
        Dim datatable As DataTable = dataset.Tables("title_in_Adapter")

        Console.WriteLine("LINE: " + datatable.rows.count.ToString())
        Dim counter As Integer
        For counter = 0 To dataset.Tables("title_in_Adapter").Rows.count-1

            Console.WriteLine(dataset.Tables("title_in_Adapter").Rows(counter).Item("title"))

        Next counter

   End Sub

End Module