Mostrar datos en un GridView recibiendo un parametro

Protected Sub Page_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Load

Dim rut_historial As String

rut_historial = Request.QueryString("Rut")

Dim conectar As New Conexion
Dim dt As New DataTable
Dim con As New SqlConnection(conectar.cadena)
Dim da As New SqlDataAdapter("sptHistorial", con)

Try
con.Open()

da.SelectCommand.CommandType = CommandType.StoredProcedure
da.SelectCommand.Parameters.AddWithValue("@rut_cliente",
rut_historial)
da.SelectCommand.ExecuteNonQuery()
da.Fill(dt)
dt.TableName = "sptHistorial"
GridView1.DataSource = dt
GridView1.DataBind()

con.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class