■

ちょっとタコって悔しかったのでここに貼り付け。
どこをタコったかは内緒。
内容はたんにローカルのデータベースに接続して、コンソールにテーブル内容を表示するというもの。

Option Explicit

Option Strict
Imports System

Imports System.Data

Imports System.Data.SqlClient

Imports System.Xml
Public Module nomura

    Public Sub Main(cmdArgs() As String)

        Dim DS AS New DataSet

        Dim ADPT As New SqlDataAdapter("SELECT * FROM titles", _

                                       "server=localhost;uid=sa;pwd=***;database=pubs")
        ADPT.Fill(DS, "titles_in_Adapt")
        Dim myTitle As DataRow
        For Each myTitle In DS.Tables("titles_in_Adapt").Rows

            Console.WriteLine(myTitle("title"))

        Next myTitle

    End Sub

End Module

ちなみに、コンパイルオプションは、

vbc /t:exe /r:system.dll,system.data.dll,system.xml.dll /debug+ .vb