imports System
imports System.data
imports sql = System.Data.SqlClient
imports Microsoft.VisualBasic
imports System.Collections

public module MyModule
	sub Main
		NorthwindDataReaderUsingExecuteReaderWithParameter("ALFKI")
        AnyKey
	end sub

Private Sub NorthwindDataReaderUsingExecuteReaderWithParameter(ByVal strID as String)
		Dim strSQL as String = "user id=sa;integrated security=SSPI;data source='(local)';initial catalog=Northwind"
		Dim cn AS new sql.SqlConnection
		cn.ConnectionString = strSQL

		Try
			' Setup Command
			Dim cmd as new sql.SqlCommand
			cmd.CommandText = "SELECT [CompanyName] FROM [Customers] WHERE CustomerID=@MyID"
			cmd.CommandType = CommandType.Text
			cmd.Connection = cn
	
			' Setup Input Parameter
			Dim parm as new sql.SqlParameter
			parm.Direction = ParameterDirection.Input
			parm.ParameterName = "@myID"
			parm.DbType = DbType.string
			parm.Size = 5

			parm.Value = strID
			cmd.Parameters.Add(parm) ' Add it to the Parameters Collection of Command (1/parm)

			Dim dr as sql.sqlDataReader
			cn.Open
			dr = cmd.ExecuteReader
			dr.Read
			WL("Results for " & strID, dr.GetString(0))

			dr.Close()
			dr = Nothing
			cn.Close()
		Catch ex As Exception 
			WL("Error", ex.Message.tostring)
		End Try
	End Sub


	sub WL(strItem as string, objValue as Object) ' paramarray 
		Dim strValue As String = CType(objValue, String)
		Console.WriteLine(strItem & ": [" & strValue & "]")
	end sub


	sub WL(strItem as string) 
		Console.WriteLine(strItem)
	end sub

	sub AnyKey
		WL("")
		Console.Write("Press enter key to continue...  ")
		RL()
	end Sub
			
	sub RL()
		Console.ReadLine()
	end sub
	
end module