CmStr.Parameters.Clear() CmStr.Parameters.Add(New Parameter With {.ParameterName="@pippo", .Type=SqlDbType.VarChar, .Value = cod.text}) etc...etc..