Select A Dataset

Imports Microsoft.ApplicationBlocks.Data (Get The DLL Zip File Here)

Dim objDs As DataSet

Dim sConnection As String = "Server=(local);Database=NorthWind;Trusted_Connection=True;"

Dim sqlparams(1) As SqlClient.SqlParameter

sqlparams(0) = New SqlClient.SqlParameter("@LastName", "Dodsworth")

sqlparams(1) = New SqlClient.SqlParameter("@FirstName", "Anne")

objDs = SqlHelper.ExecuteDataset(sConnection, CommandType.StoredProcedure, "spGetEmployee", sqlparams)

objDs.Tables(0).TableName = "Employee"

MessageBox.Show(objDs.Tables("Employee").Rows(0).Item("LastName"))