Vb6 Sqlserver et paramètre date

Voilà j'ai trouvé la solution et en plus j'ai trouvé comment passer un décimal :P :
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
             Set Ps_w = New ADODB.Command
 
             With Ps_w
             .CommandType = adCmdStoredProc
             .CommandText = "[ps_insert_absence]"
             .ActiveConnection = db
             End With
 
             Dim MonParam3 As ADODB.Parameter
             Set MonParam3 = New ADODB.Parameter
             With MonParam3
                .Name = "@abs_nomagt"
                .Direction = adParamInput
                .Type = adVarChar
                .Size = 25
                .Value = Trim(GridDetail.Columns(11).Text)
             End With
             Ps_w.Parameters.Append MonParam3
 
             Dim MonParam6 As ADODB.Parameter
             Set MonParam6 = New ADODB.Parameter
             Dim maDate As String
             maDate = Date
             With MonParam6
                .Name = "@abs_date_init"
                .Direction = adParamInput
                .Type = adVarChar
                .Size = 20
                .Value = maDate
             End With
             Ps_w.Parameters.Append MonParam6
 
             Dim MonParam13 As ADODB.Parameter
             Set MonParam13 = New ADODB.Parameter
             With MonParam13
                .Name = "@abs_nbjour"
                .Direction = adParamInput
                .Type = adDouble
                .Value = CDbl(Replace(GridDetail.Columns(6).Text, ".", ","))
             End With
             Ps_w.Parameters.Append MonParam13
 
             Ps_w.Execute