Listing 1: Full Object Code

Imports System.Data
Imports System.Data.SqlClient

Public Class SpeedTester

    Public Function GetTop1000RandomCustomers(ByVal DBConnectionString As String)
	 As DataSet
        Dim sqlConn As New SqlConnection(DBConnectionString)

        sqlConn.Open()

        Dim strSQL As String = "SELECT TOP 1000 CustomerID, CompanyName FROM
		 Customers ORDER BY NewID()"
        Dim sqlComm As New SqlCommand(strSQL, sqlConn)

        Dim daResult As New SqlDataAdapter(sqlComm)
        Dim dsResult As New DataSet

        Try
            daResult.Fill(dsResult)

        Catch ex As Exception
            Throw ex

        Finally
            sqlComm.Dispose()
            sqlConn.Close()
            sqlConn.Dispose()
        End Try

        Return dsResult

    End Function

End Class