Visual Basic fill data set

Hi I am using Visual Studio (VBasic) that creates an application that executes a select statement and returns the code to a dataset grid, please see code below


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim objConnection As SqlClient.SqlConnection = New _
        SqlClient.SqlConnection("Server=svricassql5;Database=pubs;Trusted_Connection=yes")

        ' Create a SqlDataAdapter for the Suppliers table.
        Dim authorsAdapter As SqlClient.SqlDataAdapter = _
        New SqlClient.SqlDataAdapter()

        ' A table mapping names the DataTable.
        authorsAdapter.TableMappings.Add("Table", "Authors")

        'open connect
        objConnection.Open()

        ' Create a SqlCommand to retrieve data.
        Dim productsCommand As SqlClient.SqlCommand = New SqlClient.SqlCommand( _
                       "Select au_lname FROM authors", objConnection)
        authorsAdapter.SelectCommand = productsCommand

        ' Fill the DataSet.
        Dim DSBEN As DataSet = New DataSet("Authors")
        authorsAdapter.Fill(DSBEN)
        'Dim objCommand As SqlClient.SqlCommand
       

        productsCommand.ExecuteNonQuery()
        objConnection.Close()

    End Sub

End Class

My problem is the code runs with out error byt the results do not appear in the data grid! Could anyone take a look to see where I am going wrong please?