rb=DB.Sql1.ExecQuery2("SELECT shape, low_size, high_size, color, clarity ,caratprice, date FROM price WHERE shape = ? and color = ? and clarity = ? and low_size <= ? and high_size >= ?",Array As String((ra.GetString("shape")),(ra.GetString("colour")),(ra.GetString("clarity")),(ra.GetDouble("carat")),(ra.GetDouble("carat")))) ',"carat","colour","clarity")