CmdSel.Parameters.Add(new OdbdcParameter With {.ParameterName="@Contatto", .DbType=DbType.String, .Value=CStr(Session("User"))})