The client application receives the DataSet via a web service call.
Here is the code inside the web service that populates the dataset which is sent back to the client.
Dim DA As SqlDataAdapter
Dim DS As New DataSet
Cmd.CommandText = strSelect
DA = New SqlDataAdapter(Cmd)