Function MyQueryMethod() As System.Data.DataSet

    Dim connectionString As String = "server='balrog'; user id='sa'; " & _

password=''; Database='Northwind'"

    Dim sqlConnection As System.Data.SqlClient.SqlConnection = New & _

System.Data.SqlClient.SqlConnection(connectionString)

    Dim queryString As String = "SELECT [Customers].[CompanyName] FROM [Customers]"

    Dim sqlCommand As System.Data.SqlClient.SqlCommand = New & _

System.Data.SqlClient.SqlCommand(queryString, sqlConnection)

    Dim dataAdapter As System.Data.SqlClient.SqlDataAdapter = New & _

System.Data.SqlClient.SqlDataAdapter(sqlCommand)

    Dim dataSet As System.Data.DataSet = New System.Data.DataSet

    dataAdapter.Fill(dataSet)

    Return dataSet

End Function