Here is the code I used to try it as a datset.

No change in the output though. (which is nothing)

Dim adapter As New SqlClient.SqlDataAdapter
            Dim ds As New DataSet
            Dim tables As DataTable
            Dim i As Integer
            Dim sql As String

            Dim connetionString As String = ConfigurationManager.ConnectionStrings("clocknoConnectionString").ToString()
            Dim SqlConnection As New SqlClient.SqlConnection(connetionString)
            Dim SqlCommand As New SqlClient.SqlCommand("SELECT [EmpNo], [Name] FROM [clockno] WHERE [EmpNo] = @EmpNo", SqlConnection)

            SqlCommand.Parameters.Add(New SqlClient.SqlParameter("@EmpNo", SqlDbType.Text))
            SqlCommand.Parameters("@EmpNo").Value = txtEmpNo.Text

            SqlConnection.Open()
            adapter.Fill(ds, "SQL Temp Table")
            adapter.Dispose()
            SqlCommand.Dispose()
            SqlConnection.Close()


            For Each tables In ds.Tables
                Response.Write(tables.TableName)
            Next