VBA CREATEPARAMETER NULL

Dim cmd As New ADODB.Command
Dim p1 As ADODB.Parameter
' use Null as value
set p1 = cmd.CreateParameter("param_name", adVarChar, adParamInput, 50, Null)
p1.Attributes = adParamNullable  
cmd.Parameters.Append p1
VasteMonde