VB.NetでSQL ServerのサンプルＤＢ（Northwind）へ接続して
Employeeテーブルの最初の行にある最初の列の値を表示
環境：VB.Net2008
ツールボックスからButton1を追加しておく
SQL Serverを用意しておく
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'サンプルデータベースNorthwindのEmployeeテーブルの最初の行にある最初の列の値を表示
Dim stConnectionString As String = String.Empty
Dim sqlConnection As New System.Data.SqlClient.SqlConnection
Dim sqlCommand As System.Data.SqlClient.SqlCommand
'接続文字列を生成(SQL Server認証モードが混合モードの時)
stConnectionString &= "Data Source = ServerName;" 'DBサーバ名またはIPアドレス
stConnectionString &= "User ID = sa;" 'ID
stConnectionString &= "Password = password;" 'パスワード
stConnectionString &= "Initial Catalog = Northwind;" 'データベース
'接続文字列を設定
sqlConnection.ConnectionString = stConnectionString
'SqlCommandのインスタンスを生成
sqlCommand = sqlConnection.CreateCommand
'SQL文を作成
sqlCommand.CommandText = "SELECT * FROM Employees"
'DB接続を開く
SqlConnection.Open()
'クエリが返す最初の行にある最初の列の値をメッセージボックスに表示
MsgBox(SqlCommand.ExecuteScalar)
'DB接続を閉じる
sqlConnection.Close()
'SqlCommandを破棄する
sqlCommand.Dispose()
'SqlConnectionを破棄する
SqlConnection.Dispose()
End Sub