[CODE]

    Private Sub BindGrid(ByVal dtlSottomenu As DataList, ByVal hydlblIDMenu As String)

        Dim strStringaConnessione As String = ConfigurationManager.ConnectionStrings("ConnSaganet").ConnectionString
        Dim sql As String = "SELECT * FROM Menu WHERE (IDPadre = @IDPadre) ORDER BY Ordinamento"
        Dim da As SqlDataAdapter = New SqlDataAdapter(sql, strStringaConnessione)
        da.SelectCommand.Parameters.Add("@IDPadre", SqlDbType.Int).Value = hydlblIDMenu

        Dim dt As DataTable = New DataTable
        da.Fill(dt)
        dtlSottomenu.DataSource = dt
        dtlSottomenu.DataBind()
        '
        da.Dispose()
        dt.Dispose()
        da = Nothing
        dt = Nothing

    End Sub

[/CODE]