Dim sSQL As String = "proc_Cerca"
_Select = New SqlClient.SqlCommand(sSQL)
_Select.CommandType = CommandType.StoredProcedure
_Select.Connection = Me.Connection

_Select.Parameters.Add("@Data", SqlDbType.VarChar, 0)
_Select.Parameters.Item("@Data").Value = IIf(MiaVarData.Equals(DateTime.MinValue),DBNull.Value,MiaVarData)