champs du detailsview ne change pas

Bonjour,
j'ai un detailsviews contenant un champs datenaissance et un calendrier , je veux que lorsque je selectionne une date a partir du calendrier le champs du datenaissance dans le detailsview change
voila ce que j'ai fait:
page vb.net

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.Odbc
Imports System.Data.OleDb
Imports System.IO
 
Partial Class _Default
    Inherits System.Web.UI.Page
    Dim Data1 As String
    Dim con As SqlConnection
    Dim MyCommand As SqlCommand
    Dim oReader As SqlDataReader
 
    Dim da As SqlDataAdapter
 
    Function SelectCalendar1() As String
        Dim DateNaissance As Date
        Dim cnn As SqlConnection
        Dim cmd As SqlCommand
        Dim ds As New DataSet
        On Error Resume Next
        Data1 = SqlDataSource1.ConnectionString
        cnn = New SqlConnection(Data1)
 
 
        cmd = New SqlCommand("Update Agent Set DateNaissance = @DateNaissance WHERE Num = @Num ", cnn)
        cmd.Parameters.Add("@DateNaissance ", SqlDbType.DateTime).Value = Me.Calendar1.SelectedDate().Date
        cnn.Open()
 
        cmd.ExecuteNonQuery()
        Me.Validate()
        cnn.Close()
        ds.Dispose()
        cnn = New SqlConnection(Data1)
        cmd = New SqlCommand("SELECT * FROM Agent", cnn)
        cnn.Open()
        da = New SqlDataAdapter(cmd)
        da.Fill(ds, "Agent")
        cnn.Dispose()
        cmd.Dispose()
        da.Dispose()
        cnn.Close()
        con = New SqlConnection(Data1)
        con.Open()
        Me.form1.DataBind()
 
 
 
 
 
    End Function
End Class

merci de m'aider